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TITLE TCSClf'RtV B* TERMINoL IEST 

* TERMINALS TEST 

* PART MU. 

* TCSW1 60136143-002 

* TCSC1 60136130-002 

* 

* ........... 

* THIS T6V PROGRAM VERIFIES PROPER UPERAIIOM UF LE W EC 6 

* TERMINALS THRU THE DUAL LIME COMMUNICATIONS PROCESSOR 

* (OLCP)*AMO ASYNCH OK SYMCH CONTROL LIME AD A PTERS, 

* THE SUBSYSTEM ITEMS SUPPORTED BY THIS PROGRAM ARE: 

* 

* DCM9301 CUMM-PAC (2 ASYMC LINES ) 

* OCM9302 CUMM-PAC (1 ASYMC LINE ) 

* 0CM9303 CuMM-PAC (2 SYNC LINE5 ) 

* DCM%304 CuMM-PAC (1 ASYNC ♦ 1 SYNCH LINE) 

* 

* KEVIS1UN HISTORY 

* -... ....... 

* 

* A JULY 1976 TCSC 1 ORIGINAL RELEASE 


* THIS DOCUMENT AND THE INFORMATION CONTAINED THEREIN IB CONFIDENTIAL AND 

* PROPRIETARY TO AND THE EXCLUSIVE PROPERTY OF HONEYWELL INFORMATION SYSTEMS 

* INC. IT IS MADE AVAILABLE ONLY TO HONEYWELL AUTHORUED RECIPIENTS FOR 

* THEIR USE SOLELY IN THE MAINTENANCE AND OPERATION OF HONEYWELL PRODUCTS. 

* THIS DOCUMENT AND INFORMATION MUST BE MAINTAINED IN STRICTEST CONFIDENCE? 

* IT MUST NUT BE REPRODUCED IN WHOLE OR IN PARI? AND IT SHALL NOT BE DIS- 

* CLOSED TO ANY OTHER PARTY WITHOUT THE PRIOR WRITTEN CONSENT OF HONEYWELL. 
************x**************************************************************** 
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PROGRAM PREPARATION; 

THE ROOT~SOoRCE OF THIS PROGRAM . 

ASSEMBER TO CREATE EITHER OBJECT TtXj AND LISTING# 

THE OBJECT TEXT wAS FURTHER PROCESSED BY THE HOST 
RESIDENT LINKER USING THE APPROPRIATE CONSuLE Zv$LlB LIBRARY TO CREATE 
A PUNCH SEGMENT CONTAINING AN EXECUTABLE MODULE. THE ASSEMBLY LISTING 
WAS AUGMENTED WITH CROSS REFERENCE DATA, PLUS THE LOAD MAP FROM THE 
LINKER TO CREATE A LIST SEGMENT# . 

ROOT LINKED IMAGE 

NAME TCSW1 TCSU 

DOCUMENT 60135143-002 60135130-002 

DISTRIBUTION 

THe'eLEMENTARY ITEMS SUBMITTED TU THE T 6 V PROGRAM DISTRIBUTION CENTER 
WERE THE EXECUTABLE LINKED IMAGES, UN DISKETTE* OF TCSCl AND 
‘ ... "“I AUGMENTED LISTINGS# 


MAGNETIC TAPE IMAGES OF THE 


REPRODUCTIONS OF THE EXECUTABLE LINKED IMAGES MAY BE AS DUPLICATE CARD 
DECKS OR AS A MEMBER OF A MULTIPLE MEMBER FILE, IN THE MOST FREoUENT 
CASE, IT WILL BE FOUND AS MEMBER "CO" WITHIN FILE 
"PROGFILE" OF A DISKETTE VOLUME ENTITLED "DIAGS«. 

DISTRIBUTION OF THE LISTINGS, WHICH SHOULD BE AVAILABLE IF ANY COMPLEX 
MAINTENANCE OR REPAIR IS TO BE PERFORMED, IS NORMALLY AS A PRINTED COPY. 

ROUTINE DEMONSTRATION 

Th7s"teST~EXERCISES NORMAL TTY FUNTIONALITY 

FAIRLY COMPREHENSIVELY WITH MINIMAL OPERATOR EFFORT 0* 

TRAINING. HOWEVER* TO FULLY CHECK OUT DEVICES WHICH HAVt MORE-INVOLVED 
FUNT IONAL ITY THAN A TTY HAS* THE OPERATOR MUST KNOW THE r 
DIFFERENCES BETWEEN A TTY AND THE DEVICE Tu BE TESTED# OPERATOR 

... ... . ‘ *. - “ ITY AND 


MUST Be AWARE OF ALL THE TERMINAL'S FUNTIONALI 


HOW TO ACCESS 


IT IN ORDER TO TEST THE TERMINAL AS MUCH AS POSSIBLE* 

STORAGE 

-tSIs PROGRAM REQUIRES 16 K WORDS OF MAIN MEMORY. 

OPERATION 

”I7"lGAd”anD START. (OR RESTART) THE PROGRAM. SEE T&V PRODUCT MANUAL* AW94. 
2. SEE "CONSOLE SEARCH RjLES"* BELOw. 

3# SEE "CONSOLE COMMUNICATIONS PARAMETERS", BELOW. 


PRIOR TO PROGRAM EXECUTION* THE PROGRAM IDENTIFICATION WILE 
Bt DISPLAYED ON THE CONSOLE. THE INI IIAL START WILL ALSO DISPLAY; 

THE ZVSLIb REVISION NUMBER 
THE ADDRESS FORM (SAF ) 

I/O EQUIPMENT DETECTED IN THE system 
MEMORY SUE 


THIS DISPLAY MUST BE VERIFIED BY THE OPERATOR. 
ON RESTARTS. 


THIS DISPLAY IS OMITTED 


6 . 


UPON PROGRAM INITIATION, DEFAULT PARAMETERS FOR THE TERMINAL ARE 
PRESENTED ON THE CONSOLE. EXAMINE PARAMETERS ANp CHANGE IF NECES 
USING "PAR" COMMAND. SEE "RESPONSES TO NEXI?"* BELOW. 

THE "TRM" 


TRANSFER/RETR1EVE DATA TO/FROM DLCP RAM BY gSIN G 
COMMAND•S "LC" TEST. SEE "TRM COMMAND"* BELOW. 


7. LOOP A CANNED MESSAGE TO/FROM DLCP RAM BUY USINg "TRM" COMMAND AND 
"LA" TEST.SEE "TRM CMMAND" BELLOW. 

8. TRANSMIT DAI A TO THE TERMINAL USING "IRM" mND "TT". SEE ”TRM COMMAND" 
BELOW. CHECK FOR PROPER RECEPTION OF THE DmTA By THE IERMINAL. 

RE£Eiyt k A. MLSSAGE.^FROW THE JLRM INAL. FIRST INITI ATE^"KTJ , ij T|-5J OF^J’TRM" 


10 , 


AND"THEN ENTER DATA AT THE TERMINAL UNDER TEST. CHECK LEVEL 6 CONSOLE 
FOR DISPLAY OF THE RECEIVED DATA. SEE "TRM COMMAND"* bELOW. 

SEE_"RESpON’ShS TO NEXT ^^"^BELOW,*,. FQR_.THEb£ AND OltM-CUMtfANUS SUPPORTED 


BY THIS PROGRAM ,AND WHI 
TESTING THE IERMINAL. ALSO, SEE "SAMPLE CONSOLE OPE 1 
FOR EXAMPLES. 


bemused, to,aid^theopemator^in fully 

” t- « 1 r~ *“ • RA J 1-. r- i *■» 


\] ION" 


BELOW, 
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0001 lb 
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00013b 
000136 
000137 
00013b 
00013V 
000140 
000141 
000142 
000143 


CONSOLt SEARCH RULES 

IP DtP AULT SYSTEM CONSOLE IS ADEQUATE* THib STEp CAN BE 
IGNORED. THt DtFAULT SYSTEM CONSOLE IS THAT TERMINAL WHICH IS ATTACHED 
TO THE LOWEST-NUMBERED MDC ADAPTER* OR* IF THERE IS NO APPROPRIATE DEVICE 
ON THE MDC * TO THE HIGHEST-NUMBERED DLC ASYNCRHONOUS ADAPTER. 

IF IT IS DESIRED TO SPECIFY A DIFFERENT TEkMINAl AS THE SYSTtM CONSOLE* 
LOCATION ZVblTY MUST 3E LOADED WITH THAT TERMINAL'S CHANNEL NUMBtR AFTER 
THt PROGRAM IS LOADED AND HALTED. THE ADDRtSS Of ZVSTTY CAN BE FOUND 
IN THt LINK MAP AT THE END OF THIS LISTING. CONSULT LtVEL 6 T6V MANUAL 
FOR THIS PROCEDURE. 

CONSOLt COMMUNICATIONS PARAMETERS 

IF SYSTtM CONSOLE IS ON THE MDC* THIS STEP CAN BE IGNORED. 

ALL CONSOLE I/O IS EVEN PARITY. IF CONSOLt IS ON DLC* II MUST BE ASYNC. 
IF THt CQNSuLE CANNOT BE UStD AT 12^0 BAUD. CHANGE THE PROGRAM*S 
DEFAULT bAUD RATE FUR CONSOLE DIALQGUtS. TU DO THIS* LOAD AND HALT THE 
PROGRAM BEFuKE EXECUTION AND THEN ENTtR A VALUE (RlGhT JUSTIFIED) FROM 
THt FOLLOWING TABLt INTO LOCATION ZViBUO. NOTE THAT THE NEW 
SETTING RtPLtCTS BOTH THE NEW BAUD KAIE ANu THE IDENTIFIER OF THE ADAPTER 
TO WHICH THt CONSOLt IS ATTACHED. 


QUO 17U 
000171 
000172 
000173 
000174 
00017b 


TO MAKE THIS CHANGE* LOAD AND HALT THE PRuGRAM BEFORt EX¬ 
ECUTION. insert change then execute, memory location of "zvsbud" 

MAY BE FOUND IN MAP AT END OF LISTING. 
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RESPONSES TO "NEXT ?" ARE? 

TRM ©TEST©,©CHAN©,©MESG©♦©PASSES©,TERROR REPORTING MODES 
(SEE 'TRM COMMAND* , BELOW♦ FOR FIELD DEFINITIONS.) 

MSG(SPACE) (DEFINE AN OPERAIQK MEbbAGE. 

TYPE IN MEbbAGE OP TO 320 CHARACTERS (BYTES). CONbOLE 
PROVIDES AN AUTOMAIIC CR/LF (NOT INCLUDED IN THt 
MEbbAGE TO BE TRANbMITTfcD) BEFORE EVERY 80 BYTEb. 
#-SIGN NULL I FIEb MOST-RtCENT INPUT BYTE. 

MEbSAGE IS AUTOMATICALLY PREFACED WITH A LF/CR. 

CR terminates OPERATOR INPUT.) 

TO INCLUDE VARIABLE LENGTH STRING of any CHARACTER 
© EXCEPT "©"© USE FOLLOWING PROCEDURE. 

TYPE "CONTROL F« WHICH wILL ASK FOR THE CHARACTER 
AND THE NUMBER OF CHARACTERS TO BE INCLUDED IN THE 
MEbSAGE. 

(SEE SAMPLE CONSOL OPERATION) 

TO TRANSMIT *'©" USE CANNED MESSAGE. SEE *ME3G* 

UNDER *TRM COMMAND*. BELOW.) 

MSG? (DISPLAYS OPERATOR INPUT MESSAGE) 

TRM? (DISPLAYS LAST CMD LINE INPUT) 

TRMX (DISPLAYS AND EXECUTES LAST CmD LINE INPUT) 

FOR ASYNCHRONOUS TERMINAL; 

PAR ©TERM TYPE©.©BAUD RATE©*@CHAR bI2E©,@ST0P BITS@,©PARITY© 

(SEE •CHANGING PARAMETERS', BELOW, FOR FIELD DEF1NITIONS.) 
FOR SYNCHRONOUS TERMINAL; 

PAR ©TERM TYPE©,©TERM ADDR©,©MODE©,©CLOCK©,©iHSP/PRT© 

(SEE * CHANGING PARAMETERS*,BELoW FOR FIELD DEFINATION.) 

NOTE»OPERATOR MUST CHECK DLCP CLOCK MATCHES IERM1NAL BAUD- 
RATE WHEN L6 CLOCK IS USED. 

PAR? (DISPLAYS CURRENT PARAMEIERS) 

MSH(SPACE) DEFINE AN OPERATOR MESSAGE IN HEX NOTATION. 

TYPE IN MESSAGE OF UP TU 320 BYTES U60 WORDS), 

WITH A COMMA OR PERIOD AFTER EVERY FOUR HEX DIGITS. CONSOLE 
PROVIDES AN AUTOMATIC CK/LF (WHICH 15 NOT INCLUDED IN 
THE MESSAGE TO BE TRANSMITTED) BEFORE EACH INPUT LINE OF 
TEN WORDS. ©-SIGN CANCELS MOST-RECENT INPUT HEX DIGIT. 
MESSAGE IS AUTOMATICALLY PREFACED WITH A LF/CR. 

CR TERMINATES OPERATOR INPUT.) 

MSH? (DISPLAYS OPERATOR MESSAGE IN HEX) 

RMH? (DISPLAYS RECEIVED MESSAGE IN HEX) 

NOTE; 1. FOR TRM AND PAR RESPONSES, RESIDUAL 
INFORMATION, IF ANY, FOk TRAILING 
FIELDS WILL BE USED IF C/R Is INPUTTED 
WHERE A COMMA IS SHOWN. 

2. ©-SIGN CANCELS MUST-PREvIQUS ly ENTtRED 
KEYSTROKE (EXCEPI MSG INPUT- SEE MSG, ABOVE). 

3. DURING THE EXECU!ION OF "TRM" COMMANDS, DEPRESSING 
THE BREAK KEY ON THE CONSOLE WILL CAUSE THE PROGRAM 
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TRM COMMAND 


TEST; 


EL = ESTABLISH LINE FOR MODEM 

SYSTEM SETS UP "DATA TERMINAL READY".NEEDED TO 
ESTABLISH TELEPHONE LINE.OPERATOR MUST EXECUTE 
THIS TEST PRIOR TO pIALInG THE MODEM AND RUNNING 
THE OHTER TESTS* 

DS s READ DATA SE1 STATUo OF THE LINE AND PRINT IN HEX. 

LC = WRITE/READ A MESSAGl TO/fROM DLCP RAM CP AREA 

LA s LOOP A CANNED MESSAGE AT THE CLA(LINE ADAPTER). 

LX s LOOP A CANNED MESSAGE AT THE EXTERNAL LOOP 

CONNECTER. THE LOOP CONNECTER MUSI BE AS FOLLOW. 
PINS REFERENCED ARE ON The output connecter of 
THE CLA CABLE. 


* 

ft 

PIN 

SIGNAL TIES TO 

PIN 

SIGNAL 

* 

02 

TX DATA 

03 

RECV DATA 

* 

04 

KTS 

08 

CARR DEI 

# 

05 

CTS 

08 

CARR DEI 

# 

06 

DSR 

20 

dtr 

* 

14 

NU SYNC 

15 

IX CLK 

* 

17 

REC CLK 

22 

KING 

* 

22 

RING 

23 

SPEtD SEL 

* 

ft 

23 

SPEED StL 

25 

STBY 


FOR SYNCHRONOUS TERMINAL; 

PT s SYSTEM POLLS THE TERM INAl.TERM1NAL RESPONDS WITH 
UUIESCENT MESSAGE IF IT DOESNOI HAVE ANY 
MESSAGE TO SENI. 

FOR ASYNCHRONOUS IERMINAti 

TT s SYSTEM SENDS A MESSAGE To THE TERMINAL. TO CHANGE 
THE OPERATOR’S MESSAGE. USE ’MSG • OR •MSH • 
COMMAND* OPERATOR MgST INSPECT TERMINAL DISPLAY 
TO VERIFY THAT TERMINAL REACTED PROPERLY TO THE 
MESSAGE* 

FOR SYNCHRONOUS TERMINAL; 

TT = SYSTEM SENDS A MESSAGE To TERMINAL AND POLLS THE 
TERMINAL FOR IIS response.operator MUST INSPECT 
TERMINAL DISPLAY ANg USE »RMH?" COMMAND TO VERIFY 
THAT TERMINAL REACTED PRqpERLY TO THE MESSAGE. 

FOR ASYNCHRONOUS jerminal: 

RT s OPERATOR IS TO KEY iN A MESSAGE (UP TO 640 BYTES) 
AT TERMINAL; CR ENDS INPUT? SYSTEM WILL 
CHECK RECEIVED MESSAGE FOR TRANSMISSION ERRORS. 
OPERATOR MUSI CHECK CONSOLE FUR PROPER DATA* IF 
NECESSARY, USE "RMH?" COMMAND TO MAKE VISIBLE 
ANY ASCII CONTROL CuDES. 

FOR SYNCHRONOUS TERMINAL; 

RT = OPERATOR IS -10 KEY IN A MESSAGE (UP TO 640 DYTES) 

at terminal; transmit ends the input; system 

WILL CHECK RECEIVED MESSAGE FOR TRANSMISSION 
ERRORS.OPERAIOR MUSI CHECK CONSOLE FOR PROPER 
DATA AND USE "RMH?” COMMAND TO MAKE VISIBLE 
ANY ASCII CONTROL CuDES* 

LT 5 SYSTEM SENDS MESSAGt TO TERMINAL; 

OPERATOR IS 10 ECHO THE 

MESSAGE VERBATIM AT THE TERMINAL AFTER ’INPUT* IS 
DISPLAYED AT THE TERMINAL AND DSK REMAINS ON; 
MESSAGE WILL Bt COMPARED TO TRANSMITTED MESSAGE. 
USE "MSG " OR "MSH " COMMAND TO DtFINE MESSAGE. 

CHAN; DLCP CHANNEL TO IEST (UP TO 4 HEX DIGITS) 


MESG 


C = CANNED MESSAGE 

THE CANNED MESSAGE CuNSIStS OF THE DATA WITHIN THE 
EXTREME QUUTES OF TNl NEXt THREE LINES (A CR/LF 
PRtCEDES EACH LINE)? 

•THE QUICK BROWN FOX JUMPS oVEK A LA*Y DOG* 

'THE QUICK BRUWN FOX JUMPS OVER A LAZY DOG* 
i "*$%6* () **.-./oi23456789;; <z>?ee\e • 
CHARACTERS AFTER "J" (BlINK) CHARACTER WILL BLINK. 

0 = OPERATOR MESSAGt SPECIFIED BY "MSG " OK "MSH " 
COMMANDS. SEE "RESPONSES TO NEXT ;? ", ABOVE. 

THE DEFAULT OPERATOR MESSAGE I^> 9 U* PAIRS. 
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000406 


PASSES: HUMBER OF TIMES TO EXtCUTt TEST 

IF 2ER0 IS tNTERED, T&.ST WILL LOUP FOREVER. USE 
BREAK KEY TO INTERRUPT AND STOP TESI. 
mote; rt*lt,ad and ld will only 

EXECUTE ONCE. 

ERROR REPORTING MODE: 


C = REPORT EACH ERROR ON CONSOLE 

FC s SUPPRESS ERRORS, SUMMARISE ON CONSOLE 


changing parameters 


PRIOR TO THE EXECUTION OF ANY TEST * IT IS 
NECESSARY TO CONFIGURE THE PROGRAM TO AGREE 
WITH T-HE CONFIGURATION OF THE TERMINAL TO 
BE TESTED. 

THIS IS ACCOMPLISHED WITH THE COMMAND; 


THIS MAY BE DONE WHENEVER "NEXT ?; 
TO USE, RESPOND TO "NEXT ;? " WITH 


is displayed on the system console. 


FOR ASYNCHRONOUS TERMINAL; 

PAR ^TERMINAL T YPE&,ebAUD RAIE£*£CHaR SUE@,eS10P BITS@,@PARITYe 
FOR SYNCHRONOUS TERMINAL 

PAR ^TERMINAL T YPE@»@TERM ADDRe,eM0DEe*<2?CL0CKei@DISP/PRT@ 


FOR ASYNCHRONOUS TERMINAL? 
TERMINAL- TYPE= TTY 


FuR SYNCHRONOUS TERMINAL; 

terminal types 7700 


FOR ASYNCHRONOUS TERMINAL; 
BAUD KATE= 50 


FOR SYNCHRONOUS TERMINAL? 

terminal address^ 0 to 31 


FUR ASYNCHRONOUS TERMINAL? 
CHAR SI2E= 5 

6 

7 

8 

FOR ASYNCHRONOUS TERMINAL? 
STOP BlTSs 1 

2 

FOR ASYNCHRONOUS TERMINAL? 
PAR ITY= E (EVEN) 

0 (ODD) 
N (NONE) 


FOR SYNCHRONOUS TERMINAL? 
MuDE= p (POLLED OPERATION) 

N NON-POLLED OPERATIC 


FOR SYNCHRONOUS TERMINAL? 

clocks ^6 (Dlcp clock) 

T (TERMINAL CLOCK) 

FOR SYNCHRONOUS TERMINAL? 
DlSP/PRTs D (DISPLAY) 


D (DISPLAY) 

P (PRINTER) 

C (CASSETTE) 
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000409 
000410 
000411 
00041 z 
000413 
000414 
00041b 
000416 
000417 
000416 
000419 
000420 
000421 
000422 
000423 
000424 
000425 
000426 
000427 
00042b 
000429 
000430 
000431 
000432 
000433 
000434 


FUR example; 

FOR ASYNCHRONOUS TERMINAL; 
NEXT ?; PAR 7100* 1200*8 11»E 
NEXT ?; 


(C/R) 


for synchronous terminal; 

NEXT ?; PAK 7700,1,P,L6*D (C/R) 

next ?; 

THE CURRENT PARAMETERS MAY BE DISPLAYED MTH THE COMMAND; 
PAR? 

FOR EXAMPLE; 


FOR ASYNCHRONOUS TERMINAL; 
NEXT ?; PAR? 

TERM TYPE;; 7100 
BAUD RATt;; 1200 


CHAR sue; ; 
STOP BITS;; 

parity;; 
next ?; 


for synchronous 
N eXT ?; PAR? 

Term Type;; 770u 

term addr;; i 

mode ; p 

clock;; lb 
dISp/prt;; d 

NeXT ?; 




terminal; 
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000433 

/ 


000436 

* 


000437 

* 

SAMPLE CONSOLE OPERATION; 

000436 

* 


000439 

# 


000440 

* 

TERMINALS TEST TC5C1 REV A JULY 7 1978 

000441 

* 

Z V$L 1 b REV. 7.00 

000442 

* 


000443 

# 

WOT 

000444 

* 

CHAN OEVC ID 

000443 

* 

0*00 D5KT 2010 

000446 

* 

0480 OSKT 2010 

000447 

* 

0500 COR 2008 

00044b 

# 

0580 CONS 2019 

000449 

* 

KOO ACLA 2118 

000430 

* 

FC80 ACLA 2118 

000*51 

* 

FUOO ACLA 2118 

000452 

* 

f-060 ACLA 2118 

000453 

* 

htOO ACLA 2118 

000*54 

# 

FE80 ACLA 2118 

000453 

* 

F-FOO ACLA 2118 

000456 

# 

F F 60 ACLA 2118 

000457 

* 

MEMORY LO* 1B9C 

000456 

* 

MEMORY HIGH FFFF 64K 

000459 

* 


000460 

* 

default pakameters; 

000461 

* 

TERM TYPE:; 7100 

000*62 

* 

BAUD RATE;; 1200 

000463 

* 

CHAR SIZE:; 6 

000464 

* 

STOP oits;; i 

000463 

# 

parity:; e 

000466 

* 


000467 

* 

'NEAT ?; MSg ( SPACE) 

000466 

* 

THIS IS A TEST MESSAGE! (C/R) 

000469 

* 

(THIS IS AN EXAMPLE OF AN OPERATOR iNPUT MESSAGE) 

000470 

# 


000471 

* 

neat ?; MSG? 

000*72 

* 

CR/LF 

000473 

# 

THIS IS A TEST MESSAGE J 

000474 

* 


000*75 

* 

(THE OPERATOR HAS DISPLAYED 1 HE MESSAGE HE INPUT) 

000*76 

* 


000477 

* 

TYPE "CONTROL F" IN MSG(SPACE) COMMAND.FOR EXAMPLE5 

000476 

* 


000479 

* 

next ?; mSg(SpacE) 

000460 

* 

X YZ (CONTROL 1-) 

000481 

* 

CHARACTER ?:# 

000484 

* 

NUMBER ?;3(C/R) 

000483 

* 

PO*RQ(C/R) 

00048* 

* 

(THIS IS AN EXAMPLE OF OPERATOR INPUT McSSEGe USING "CONTROL F " 

000485 

* 


00G48o 

* 

NEXT ?;msg? 

000487 

* 

CR/LF 

000486 

* 

XY2####*PRU 

000*89 

* 

(OPERATOR HAS DISPLAYED THE MESSEGE HE INPUT) 

000*90 

* 

©NOTE THE USAGE OF # SIGN AS AN ERASER AND A CHARACTER© 

000491 

* 

FOR ASYNCHRONOUS TERMINAL; 

000*92 

* 

NeXT ?; PAR 7100,9600,7.2.N (C/R) 

000493 

* 


000*94 

* 

(THE OPERATOR HAS CHANGED THE PARAMETERS) 

000495 

* 


000*96 

* 

next ?; par? 

000*97 

* 

TERM type:; 7100 

000496 

# 

BAUD RATE;; 9600 

000499 

* 

CHAR SIZE;; 7 

G0030U 

* 

STOP biTs;; 2 

000501 

* 

parity;; n 

00030* 

* 


000503 

* 

(THE OPERATOR HAS DISPLAYED (HE PARAMETERS) 

000304 

* 


000505 

* 

NEXT ?; TkM H,FCOG,0,1,C (C/R) 

000306 

# 


000507 

* 

(this begins execution of test tt> 

000306 

* 

(THE CONSOLE RESPONDS WITH 1 HE FOLLOWING;) 

000309 

* 


000310 

* 

EXECUTING TT; FCOO, 0, 1* C 

000511 

# 


000312 

# 

TT; TEST COMP CHAN FCOO 

000513 

* 

1 PASSES 0 ERRORS 

000514 

* 


000515 

* 

NOTE; FOR SYNcHRONQjS TERMINAL THE CONSOL RESpOND^ WITH FOLLOWING 

000316 

# 

EXECUTING TT; FCOO, 0, 1, c 

000517 

* 


000518 

# 

ACK RECEIVED 

000519 

# 


000520 

* 

TT; test COMP. CHANNEL FCOO 

000521 

* 

1 PASSES 0 ERRORS 

000322 

* 

NEXT ?; TRMX 

000323 

# 


000524 

* 

(THE OPERATOR HAS RE-EXECUTEU (HE PKEV10uS’TEST) 

000525 

* 

(THE CONSOLE RESPONDS WITH THE FOLLuWING;) 

000326 

* 


000527 

* 

EXECUTING TT; FCOO, 0, I, C 

000528 

* 


000529 

* 

TT; TEST COMP CHAN FCOO 

000530 

* 

1 PASSES 0 ERRORS 

000531 

* 


000332 

* 

NEXT ?; TRm? 

000333 

* 


000334 

* 

(THE OPERATOR WISHES TO LOOK AT THE LAST COMMAND LINE) 

000535 

* 

(THE CONSOLE RESPONDS WITH THE FOLLOWING;) 

000536 

* 


000537 

* 

TT; FCOO, 0, 1, C 

000538 

* 


000339 

# 

NEXT ?; MSH(SPACE) 

000340 

# 

3132*3334,3536*494E,555,542E (C/R) 

000341 

* 


000542 

* 

(OPERATOR HAS INPUT HEX VALUES DIRECTLY INTO The MESSAGE BUFFER) 

000343 

* 


000544 

# 

NEXT ?; MSG? 

000545 

* 

CR/LF 

000346 

* 

123456 INPUT• 

000347 

* 
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TITLE TCELT * • REV b» TERMINbL TEST 



00054b 

00U349 

000550 

000551 

000352 

000353 

000554 

000355 

00035b 

Q00357 

00035b 

000359 

000360 

000361 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 


(OPERATOR HAS DISPLAYED THE PRtVIOUS MESSAGE INPUT.) 

NEXT ?; MSH? 

ODOA 3132 3334 3336 494E 5035 542E 

(OPERATOR HAS DISPLAYED THE MESSAGE INPUT IN HtX#J 
(NOTl LtAD ING CR/LF 

NEXT ?; KMH? 

1616 1610 1601 6006 2020 0203 1616 1616 0400 

(OPlRATOR HAS DISPwAYED SYNCHRONOUS TERMINAL RESPONSE (ACK) in hex 
WHEN M TT M COMMAND EXECUTED.) 


( 
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PAGE 10 


000362 
0001? 6 3 
000564 
000563 
000666 
000567 
000366 
000569 
000370 
000571 
000574 
000373 
000574 
000573 
000576 
000577 
000376 
000579 
000580 
000381 
000382 
000583 
000584 
000583 
000586 
000387 
000588 
000589 
000590 
000591 
000592 
000393 
000594 
000595 
00059t> 
000597 
000598 
000599 
OOObOO 
000601 
000602 


SUPPORTED MODEMS; 


ASYNCHRONOUS 

103A NO LOOPBACK CAPABIL 

- NO LOOPBACK CAPABIL 

NO LOOPBACK CAPABIL 
NO LOOPBACK CAPABIL 
NO LOOPBACK CAPABIL 
NO LOOPBACK CAPABIL 
NO LOOPBACK CAPABIL 
NO LOOPBACK CAPABIL 


103E 
i03F 
113A 
113B 
202C 
202D 
202 S 
202T 


NO LOOPBACK CAPABILITY 


1 Y 
TY 
TY 
1 Y 
TY 
TY 
TY 

r y 


SYNCHRONOUS 

201C NO LOOPBACK CAPABILITY 


/ 

* 

# 

* 

# 

# 

* 

# 

* 

# 

* 

* 

# 
ik 
* 

# 

# 

# 
ik 
ik 
* 

# 

# 

* 

Ik 
* 

# 

# 

Ik 
# 

Ik 
* 

* 

* 

# 

* 

* 

* 

# 

Ik ***********ft***##**##*##*#ft*********************************#**************** 


SUPPORTED TERMINALS: 


TTY 

VIP 

VIP 

VIP 


7100/7105 


00/7205 
7250/7235 
7700/7700R 

PRU1001 (SARA-300 BAUD) 

SARA-1200 BAUD) 

(ROSY 24-110/200/300 BAUD) 
(ROSY 26-1200 BAUD) 


PRU1002 

PKU1003 

PRU1005 

TWU1001 

TWU1002 

TWU1003 

TWU1005 
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000603 





/ 





000604 


0000 



ZERO 

tuu 

i 



000605 






XLOC 

zv$arg*zv$abf*zv$bkf 



000606 






XLGC 

ZHPFRfZHRTCUZHRTCL 



000607 






XLOC 

ZHRTCC »ZHCOMM 



00060b 

0100 





ORG 

ZERU+X•100• 



000609 





* 





000610 





START 

CALL 

2V$K0 % T1TLE 

DETERMINE RESOURCES.IDtNT1FY PROGRAM 


0100 

FBCO 

0003 








0102 

0380 

0000 

X 







0104 

0F80 









0105 

OOF 7 








000611 


0105 



STARTM 

EgU 

$-$AF 



000612 

0106 

t3C0 

13C5 



LNJ 

$B 6 * 5T MT 



000613 

0108 

9BC0 

1557 



LAB 

Sbl *CRLF 



000614 

010A 

9FC0 

FFF A 



STB 

3 >bl fSTARTM 



000615 

010 C 

OF 80 

0909 


STARTB 

b 

<0PARM1 

DISPLAY DEFAULT PARAMETERS 


000616 

Q10E 

OFO 1 

FFFF 



NOP 

3 



000617 





* 





00061 b 

0110 

8740 

0042 


NEXT 

CL 

PCNf 

CLEAR THE PASS COUNTER 


000619 

0112 

8740 

1478 



CL 

NOS T OP 



000620 

0114 

8740 

0D33 



CL 

11M P 4- 1 



000621 

0116 

8740 

0040 



CL 

ERCT 

CLEAR THE ERROR COUNTER 


000622 

0118 

8740 

00 A 8 



CL 

MSGFLG 



000623 

0 11 A 

9870 

2 C 20 



LOR 

$RUsX«2C20» 



000624 

OliC 

9F40 

165E 



STR 

Ski* LCHQMS + 7 



000625 

out 

9870 

2020 



LOR 

$R1 * = X •2020 » 



000626 

0120 

9F40 

1656 



STR 

$R1 * ECHQMS + 8 



000627 

0122 

9F40 

165A 



STR 

$K1*ECHUMS*9 



00062b 

0124 

9F40 

1659 



STR 

$R 1 * tCHQMb+10 



000629 

0126 

9B80 

0110 



LAb 

$B1,<NEXT 



000630 

0128 

9FC0 

FFE4 



STB 

$b 1 * ST AKTB+1 

DISPLAY PARAMlTERS ONCE 


000631 

012 A 

bBBO 

0E1E 



LAB 

SB3 * <NXT 

LOAD MtSSAGE ADDRESS 


000632 

0120 

C3C0 

15C7 



LNJ 

$B4 * TYPEQ 

TYPE NEXI ?; 


000633 

012E 

1C08 




LDV 

$R 1 i = 8 

RANGE FOR CMO 


00063L 

0121 “ 

A3CQ 

0C8B 



LNJ 

$B2 « 1ASC 

INPUT IHt COMMAND 


000635 

0131 

A840 

0D1 5 



LOR 

SR2 « TEMP 

GET THt CMO I»mPUT 


000636 

0133 

A970 

5050 



CMR 

$R2*=A»PP* 

GO TO PA 1 CHER ROUTINE 


000637 

0135 

0901 

1810 



BE 

2 VPTCH 



00063b 

0137 

A970 

5452 



CMR 

$R2*=A*TR» 

IS IT A IR? 


000639 

0139 

0969 




BNt 

>NXA 

NO-TRY MS 


000640 

013A 

A840 

0000 



LOR 

$R2 * T EMP +1 



000641 

013C 

A970 

4020 



CMR 

SR2 * = Z * 4020 1 

CHECK FOR M 


000642 

013E 

0981 

0039 



BNt 

MCMOER 

INPUT ERROR - GO TyPE MtSSAGE 


000643 

0140 

0 F 81 

0081 



B 

NEXJ A 

GO INPUT PARAMETERS 


000644 





* 





000645 

0142 

A970 

4053 


NXA 

CMR 

$R2*sA»MS» 

TRY MS 


000646 

0144 

0981 

0054 



BNE 

npak 



00064/ 

0146 

A840 

0001 



LOR 

$R2*TEMP+1 

LOAD SECOND HhLF OF CMD 


000646 

0148 

A970 

4720 



CMR 

$R2 * = A ' G ' IS 

IT A G? 


000649 

014A 

0901 

OOAF 



BE 

NEXT B 

YES-GO INPUT OPERATOR MESSAGE 


000650 

014C 

A970 

473F 



CMR 

$R 2 *sZ» 4 / 3 F» 

NO- TRY G? 


000651 

Ol4t 

AF40 

0072 



STR 

$R2*MSGFLG 



000652 

0150 

0981 

003E 



BNE 

NXAA 

NEITHtK- 


000653 

0152 

8751 




CL 

= SR 1 

MSG? 


000654 

0153 

9BC0 

0068 



LAB 

SBUQPMESG 



000655 





* 





000656 

0155 

8753 



NXA 1 

CL 

= $R3 



000657 

0156 

A811 




LOR 

SR 2 * Sb 1 •$R 1 



000656 

015 7 

30C8 




OOR 

$R3 * 8 



000659 

0158 

2024 




CMV 

$R2 * = X• 24 • 

S IN MtSSAGE 


000660 

0159 

0900 




bt 

>NXA4 



000661 

015A 

205C 




CMV 

*R2*=X'5C» 

\ IN MtSSAGE 


000662 

015b 

090B 




BE 

>NXA4 



000663 

015C 

3048 



NXA2 

SOR 

3»R3*8 



000664 

0150 

3024 




CMV 

4R3*5X*24* 



000665 

015E 

0900 




BE 

>NXA5 



000666 

015 F 

305C 




CMV 

*R3,=X»5C» 

\ IN MtSSAGE 


000667 

0160 

090b 




BE 

>NXA5 



000666 

0161 

9940 

0009 


NXA3 

CMR 

$R1 ,OPMRNG 

RANGE tXHAUSTLO? 


000669 

0163 

0280 




BGE 

>NXA 6 



000670 

0164 

1781 

FFFQ 



blNC 

$R 1 * NX A 1 



000671 





* 





000672 

0166 

0811 



NXA4 

LOR 

$R5*SBl.$Rl 

BLIND LIBRARY TO EXISTENCE UF 

$ 

000673 

0167 

DA70 

8000 



AOO 

$R5 * = Z * 8000 • 

AND MOL JO \ 


000674 

0169 

OF 1 1 




5TR 

*R5*S61,Ski 



000675 

016A 

0FF2 




B 

>NXA2 



000676 





* 





000677 

0160 

0811 



NX A 5 

LOR 

SR5 * SB 1•$K1 

BLIND LIBRARY TO EXISTENCE OF 

$ 

00067b 

016C 

0A70 

0080 



AOO 

SR5 * =2 * 0080 * 

AND MOC TO \ 


000679 

Q16E 

OF 1 1 




STR 

$R5 *SB1.SRI 



000600 

016F 

0FF2 




b 

>NXA3 



000681 

0170 

BB80 

OEBB 


NX A 6 

LAB 

$B3 * <OPMESP 



000682 

0172 

9840 

0CF8 



LOR 

Ski*OPMRNG 



000683 

0174 

93C0 

14F0 



LNJ 

SBUCONPRT 

PRINT BUFFER uN EVEN A TIY-K 


000684 

0176 

OF 81 

FF99 



B 

NEXT 



000685 





# 





000686 

0178 

A970 

403F 


MCMDER 

CMR 

$R2 * ~Z * 403F * 

M? 


000687 

01 7A 

098b 




BNE 

>NCMOER 



000688 

017b 

89C0 

0CD5 



CM2 

PASSES 



000689 

0170 

0980 


T 


BNE 

> + $A 



000690 

017t 

1 C 01 




LOV 

Ski*=l 



000691 

017F 

9F40 

140b 



STR 

Ski * NOSTOP 



000692 

0181 

A3C0 

15bi 


$A 

LNJ 

$B2 * ECHOA 

TYPE LAST CMD LINE 


000693 

0183 

OF 81 

FF7C 



B 

START 



000694 

0185 

A970 

4058 


NCMOER 

CMR 

$R2,=Z»4D58» 

X? 


000695 

0187 

0901 

0172 



BE 

NEXTF 



000696 





* 





000697 

0189 

bB80 

01B9 


CHOER 

LAB 

SB3 *<1NVCMO 

LOAD MESSAGE ADDRESS 


000698 

0 18d 

C3C0 

1559 



LNJ 

3>ti4t TYPEC 

AND TYPE IT. 


000699 

0180 

0F81 

FF72 



B 

START 



000700 





* 





000701 

018F 

A970 

4820 


NXAA 

CMR 

$R2*=A»H » 



000702 

0191 

0901 

0104 



BE 

IMSH 



000703 

0193 

A970 

483F 



CMR 

SR2 * =A•H?• 



000704 

0195 

0901 

0135 



BE 

IMSO 



000705 

0197 

OF 81 

FFF 1 



B 

CMOER 



000706 





* 





000707 

0199 

A970 

5041 


NPAR 

CMR 

SR2 *=A*PA* 



000708 

019b 

0981 

0000 



BNE 

HEX OP 



000709 

0190 

A840 

OCAA 



LOR 

SR2 4 TEMP+I 



000710 

019F 

A970 

5220 



CMR 

$R2 * sA * R • 



000711 

01A1 

0901 

08 OF 



BE 

IRAK 

GO INPUT PARAMETERS 






TITLE TCSCi«•REV b» TERMINbL TEbl 


PAGE U 


000712 

01 A3 

A970 

523F 



CMR 

$R2,=A»K?» 

000713 

01 A3 

0901 

0842 



Bt 

OPARM 

000714 

000713 

01A7 

0F81 

FFE1 


* 

b 

CMOtR 

000716 

01A9 

A970 

3240 


HEXDP CMR 

$R2*=A*KM« 

000717 

01 At) 

0961 

FFOD 



bNE 

CMOtR 

000716 

01 AO 

A640 

0C9A 



LOR 

$R2,TEMP*1 

000719 

01AF 

A970 

483F 



CPR 

$R2*sA«H?« 

000720 

000721 

oita 

0981 

F F 07 


* 

ONE 

CMDEK 

000722 





* 



000723 





* 

PUMP RECEIVE BUFFER IN HEX 

000724 

000723 

01B3 

93C0 

0110 


* 

LNJ 

SBltDMPhtX 

000726 

01B3 

1703 




OC 

<RECD 

000727 

01B6 

0E6F 




DC 

<KCVRNG 

000726 

01B7 

OF 8 1 

FF58 



b 

NEXT 

000729 

0ib9 

494E 

3641 

4C49 

1NVCPD TEXT 

•INVALID COMMANDS 


01BC 

4420 

*34F 

4040 






414E 

4424 





000730 

01C1 

0000 



HSGf-LG DC 

0 

000731 





# 




GO 01 SPLAY PAkAMETeRS 

CKECK FOR REQUEST JO DUMP RCV BUFFER 

KMH? 


\.*y 





TITLE TC5C1, *REV b« 

' terminbl 

TEsT 
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000732 





/ • TRM 

• 15 

DECODED 


000733 





* parameter 

INPUT 


000734 





* 




00073b 

01C2 

lCOb 



NEXT A 

LDv 

$Rl,s6 

FIR5T INPUT ThE TEST 

000736 

01C3 

A3C0 

0BF7 



LNJ 

$02 ,IA5C 

TEST 

000737 

0 iCb 

ABCO 

0C87 



LAB 

$B2,TE5T 


00073b 

01C7 

L3C0 

001F 



LNJ 

$04,END 


000739 

01C9 

1C06 




LOV 

$R1 , = 6 


000740 

01CA 

A3C0 

ObFF 



LNJ 

$02,1 HEX 

CHANNEL 

00074i 

oicc 

ABCO 

0C62 



LAB 

$02,CHAN 


000742 

o i ce 

C3C0 

0016 



LNJ 

$04,END 


000743 

0100 

1C04 




LOV 

$Rl,s4 


000744 

0101 

A3C0 

0BE9 



LNJ 

$02,1A5C 

ME5G TYPEIO Ok C) 

00.074b 

0103 

ABCO 

0C7C 



LAb 

$02,MESG 


00074b 

0105 

C3C0 

0011 



LNJ 

$04,END 


000747 

0107 

1C04 




LOV 

$R 1 , =:4 


00074b 

010b 

A3C0 

OBFC 



LNJ 

$02,iOEC 

number of passes 

000749 

010A 

ABCO 

0C76 



LAB 

$02,PA5SE5 


000750 

010C 

C3C0 

OOOA 



LNJ 

$B4,END 


000751 

OlOt 

1C06 




LOV 

$R1,=6 


000752 

010F 

A3C0 

OBOB 



LNJ 

$02 * 1A5C 

ERROR REPORT MODE 

000753 

01E1 

ABCO 

OC70 



LAb 

$B2,ERCO 


000754 

0 1E3 

C3C0 

0003 



LNJ 

$04,END 


OOu 755 

0 1E5 

0F81 

0114 



B 

NEXTF 

GO CHECK VALiuITY 

000756 





* 




000757 

OIL? 

Ab40 

0C5F 


END 

LOR 

$R2,TEMP 


00075b 

01E9 

C640 

0C5D 



LOR 

$R4,TEMP 


000759 

0 1 Eu 

C570 

FFOO 



AND 

$R4, *2•FFOO• 


000760 

01E0 

C970 

2C20 



CMR 

$R4, = A *, * 


000761 

01EF 

0907 




Bt 

>EN01 


000762 

01F 0 

B800 

0000 

X 


LOK 

$R3,<2V$A0F 


000763 

01F2 

0970 

0000 



CMR 

$R3 ♦ =-X * 0000 9 


000764 

01F4 

0903 




bE 

>EN02 


000765 

OlFb 

AF02 




5TR 

$R2,$02 


000766 

OlFb 

8364 



END1 

JMP 

$04 


000767 

01F7 

AF02 



END2 

STR 

$R2»$B2 


00076b 

OlFb 

OF b 1 

0101 



b 

NEXTF 


000769 





# 






TITLE TCSCU»ktV B* TERMINBL TEST 
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000 /70 
000771 
00077* 
000773 
000774 
00011b 
00077t> 
000 111 
00011b 

000779 

000780 


000781 

00078* 

000783 

000784 

000785 

000786 

000787 

00078b 

000789 

000790 

000791 

00079* 

000/93 

000794 

000795 

000796 

000797 

000796 

000799 

000600 

OOObOl 

00080 * 

000803 

000604 

000805 

000b06 


0 IF A 

C3C0 14D4 
3C0* 

9BC0 OCBD 
6754 

FBCO 0003 

0380 0000 

OF 80 

0E54 

0E47 

8A04 

4050 

0980 

8754 

C3C0 14C3 
5^01 

A840 0000 


OPERATOR INPUTS MESSAGE HERE - 


NtXTB EOU 
LNJ 
LDV 
LAb 
CL 

MSGINP CALL 


SB4 »NEWLIN 

$R3 * = 2 2 INJT BYTES = CR/LF 

SBUGPMESP PTR TO AUTO CR/LF 

= $R4 INIT CONSOLE COL INDICATOR 

ZV$IA.ZVSIAV*STAT,TEMP GET A BYTE 


~$R4 
$R4 * = 80 
>♦ $A 
= $R* 

$B4*NEWL1N 
SR5*=l 
$R2,ZVSABF 
SR2 * 8 
$R2»=A*#» 

> + SA 


UPDATE CULCNTK 

CHECK FOR END OF CONSOLE LINE 

PROVIDE CR/LFFOR CLEAN CONSOLE INPUT 
0 OF CHAR I wPUT 

GET ACTUAL BYTE FOUND (INCLUDES DELIMITERS) 
R1GHT-ADJUST THE CHAR 
CHECK FOR ERAsE CHAR 


tRASE MOST RECENT INPUT CHAR * IF ANY % 
BY ALLOWING NEXT INPUT 10 OVERLAY It 


$R3 *-2 
>MSbINP 
= $R3 
>MSGINP 


AVOID ERASURE BEYOND BEGINNING UF BUFFER 


GET NEXT CHAR 


$R2»=X»0D* CHECK FOR CR E 

>ENdMSG 

SR2♦=X•06 1 CTL-F: ESCAPE 

>ST0R1 

FILL BUFFER WITH N CHAR OF X 
$B3 % CHPRMT PROMT USER FOR CHAR 

Sb4 ? TYPEC 

ZV$IA#ZV$IAV»STAT *TEMP GET I HA CHAR 


CHECK FOR CR ENDING MSG INPUT 

CTL-F; ESCAPE CHAr TO ALLOW MULTIPLES 


000607 

OOObOb 

000609 

OOOblO 

000611 


SR2»ZV$ABF 
$R2«8 

$B3iREPPMT 

$B4«TYPEC 

ZVS1H,ZV$ID,TEMP 


KIGHT-JUSTIFY IT 

PROMT USER FOR REPLICATION FACTOR 
GET REPLICATION FACTOR 


OOObl* 

OOObU 

000bi4 

000615 

000616 

000617 

000618 

000619 

000620 

000821 

000622 

000623 

000624 

000625 

000826 

000627 

000626 


0233 

C3CQ 

149B 

LNJ 

SB4 * NEWLIN 


0*35 

D840 

OCU 

LDR 

SR5 * TEMP 


0237 

8754 


CL 

= $R4 

INIT CONSOLE COL InD 




# 

STORE C4AR(S) 

0238 

A7FD 


STUR1 STH 

$R2 *SB1• +$R3 

LOAD BUFF 

0*3v 

b97G 

014* 

CMR 

$R3 * = 322 

END-OF-BUFF? 

023b 

0905 


bE 

>ENDMSG 

023C 

88D5 


DEC 

= $R5 

DECREMENT CHAR COUNT 

0* 3D 

5A7B 


BGZ 

SR5i>STOK1 

023E 

0F8 1 

FFCl 

B 

MSG1NP 

GET MURE 


LNDMSG ECU 

* 

* "C/k L/ 

* AND RRAN 1 

* AGAINST i 


000829 




* 


000630 

0240 

OF 01 

FFF F 

NOP 

S 

000631 

0242 

0F01 

FFFF 

NOP 

S 

00083* 

0244 

D853 


LDR 

Sk5»=$K3 

000633 

0*45 

3041 


SOR 

3>K3 * 1 

000834 

0246 

5B81 

GOOD 

BUDD 

SR5»ODD 

000635 

0246 

6751 


EVENbR CL 

= $R 1 

000636 

0249 

9F31 


STR 

SR1»SBUSK3 

000637 

024A 

BF40 

OC20 

AUTOND STR 

$R3 t OPMRNG 

000638 

024C 

8AD3 


INC 

= $R3 

000639 

0*40 

BF40 

0039 

STR 

$R3*0PRG 

000640 

024F 

88D3 


DEC 

= $R3 

000841 

0250 

BB70 

0002 

MUL 

SR3,=2 

00084* 

025* 

OF 61 

OOOC 

B 

IMF 1 

000843 

0*54 

A83 1 


ODD LDR 

$R2 *SB1.SR3 

000844 

0*55 

A570 

FFOO 

AND 

SR2*=Z , FF00* 

000645 

025 7 

AF31 


QDD2 STR 

$R2*SB1.SN3 

000846 

0*58 

8AD3 


INC 

= $R3 

000847 

0259 

BF4G 

0C11 

STR 

$R3 fOPMRNG 

000646 

025B 

BF40 

002B 

STR 

$R3 t OPRG 

000649 

025D 

3001 


SOL 

SR3»i 

000650 

025E 

88D3 


DEC 

= $R3 

000651 

025F 

BF40 

OCOA 

IMF 1 STR 

$R3,0PMRG6 

000852 

0*61 

BF40 

02CC 

STR 

SR3,LCEXlk 

000853 

0263 

BF40 

02D2 

STR 

$R3»LCEX2R 

000654 

0265 

BF40 

05A9 

STR 

SR3,TTEXk 

000855 

0267 

3EFE 


ADV 

SR3 *-2 

000656 

0266 

BF40 

0C04 

STR 

SR3,RKANGB 

000657 

026A 

C840 

OCOO 

LDR 

$R4,OPMRNG 

000658 

026C 

4EFF 


ADV 

$R4,-1 

000659 

G26D 

CF40 

OBFE 

STR 

$R4,RRANGE 

000660 




# 


000661 

Q*6F 

B840 

0017 

LDR 

SR3 $OPRG 

00066* 

0271 

9870 

ODOA 

LDR 

SR1»= X 1 ODOA• 

000663 

0273 

9F7D 


STR 

$R1*$BI• ♦$R3 

000664 

0274 

9870 

494E 

LDR 

$K1,=A'IN» 

000665 

0276 

9F7D 


STR 

SRI*SB1*+$R3 

000666 

0*77 

9870 

5055 

LDR 

SR 1 * = A * PU * 

000667 

0279 

9F7D 


STR 

$R1«$B1•+$R3 

000666 

027A 

9870 

543A 

LDR 

SRI »j=a*t ;» 


k L/F INPUT; C/R L/F’' IS ADDED TO UP MESSEuE IN LT TEST 
RRANGE IS USED COMPARE XMIT BUFFER 
NST RECD BUFFER 


SAVE EVEN BYTlS RECD 


RANGE IN WORDS 


TO GET lHE RIGHT NO OF WORDS 
RANGE IN WORDS 


RANGE IN BYTES 


ADUJUST FOR C/R L/F BYTES 
NEEDED FOR LT AND LT E^POR PRINT 

ADUJUST FOR CR/LF 
REAL RANGE IN WORDS 


INCLUDE C/R L/F IN MESSAGE 
INCLUDt INPUT; IN MESSAGE 




TITLE TCSC1*•REV B» TERMINBL TEST 


000669 

U27C 

9F70 



STR 

SR 1 * $B1• + SR3 

000670 

0270 

9870 

ODOA 


LOR 

SR 1 ♦ = X * OOOA• 

000671 

027F 

9F7D 



STR 

$R1»$B1*+$R3 

000672 

0280 

8751 



CL 

= SR 1 

00067b 

0281 

9F7D 



STR 

$R1t$Bl#+$R3 

000674 

0282 

3001 



SOL 

SR3,i 

000875 

0263 

OF 40 

04E8 


STR 

SR3 *LT SRNG 

000676 

0286 

0F81 

FE8A 


b 

NEXj 

000677 





# 


000676 





* 


000679 

0267 

0000 



OPRG OC 

0 

000680 

0286 

0000 



SAVE7 OC 

0 

000681 

0269 

0000 



WCTR OC 

0 

000681: 

028A 

4348 

4152 

4143 

CHPRMT TEXT 

•CHARACTER ?;S* 


0 260 

5445 

5220 

3F3A 





2400 





000886 

0291 

4E55 

4D42 

4552 

REPPhT TEXT 

•NUMBER ?;$• 


0294 

203F 

3A24 
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INCLDE C/R L/F IN MESSAGE 
CCB RANGE FOR XMIT BUFFER 



TITLE TCSCi,»REV b* TERMlNbL TEST 


PAGE: 16 


000684 





/ 



000685 





* 



00088b 





* INPUT HEX VALUES IN DPI 

000887 





* 



000688 

0296 

3C01 



IMSH 

LDV 

*R3,1 

00068V 

0297 

4CFF 




LDV 

$K4,-1 

000690 

0298 

9BC0 

0C22 



LAB 

$B1,OPMESP 

000891 

029A 

6740 

06AC 


IMSHA 

CL 

TEMP 

000892 

029C 

4780 


T 


bINC 

$R4,>*$B 

000693 

0290 

C3C0 

1431 



LNJ 

$B4,NEWLIN 

000694 

02 9 F 

4CF6 




LDV 

$R4,-10 

000695 

02 AO 

FBCO 

0003 


SB 

CALL 

2V$IH,TEMP 


02A2 

D380 

0000 

X 





02A4 

0F80 







02A5 

0E47 






000696 

02A6 

9800 

0000 

X 


LDR 

3>R 1, <2V$A6F 

000697 

02A8 

OFOi 

FFFF 



NUP 

$ 

000698 

O^Am 

9970 

ODOO 



CMR 

SRI,sX*ODOO* 

000699 

02AC 

090D 




BE 

>IM5HB 

00U900 

02 AD 

A840 

0699 



LDR 

$R2 * TEMP 

000901 

02 AF 

89C0 

0697 



CM2 

TEMP 

000902 

02bl 

0900 


T 


be 

> + $A 

000903 

0262 

AF31 




STR 

$R2 * SB 1 • 3>R3 

000904 

02B3 

8 AO 3 



3>A 

INC 

= $R3 

000905 

0264 

6970 

00A1 



CMR 

$R3,=161 

00090b 

0266 

0901 

FF93 



BE 

AUTOND 

000907 

000906 

0268 

OF E2 



* 

B 

>IMSHA 

000909 





* HERE IF 

C/R DETECTED 

000910 





* 


000911 

0269 

A840 

0B8D 


IMSHB 

LDR 

$R2iTEMP 

000912 

0266 

C600 

0000 

X 


LDR 

SR4 , <2V$ARG 

000913 

026D 

4D02 




CMV 

$R4* = 2 

000914 

02bE 

0909 




BE 

>1MSHC 

000915 

026F 

4003 




CMV 

$R4,s3 

000916 

02C0 

0908 




BE 

>IMSHD 

000917 

02C1 

4004 




CMV 

3>R4,s4 

000916 

02C2 

0980 


T 


BNE 

> + $A 

000919 

02C3 

2004 




SOL 

$R2,4 

000920 

02C4 

AF7D 



SA 

STR 

$R2,$BU*$R3 

000921 

02C5 

OF 81 

FF82 



b 

EVEhBR 

000922 

02C7 

2004 



1MSHC 

SOL 

$R2,4 

000923 

02C6 

2008 



IMSHD 

SOL 

$R2,8 

000924 

000925 

02C9 

OF 81 

F F 8 D 


ik 

b 

0DD2 


•£R - MSH 

1 WORD ALREADY FOR CR-LF 


INPUT BUFFER 

ALLOW LR AFTER TEN WORDS PER LINE 
AUTQMAIIC CR/lF AFjER EVERY 10 WORD LINE 

DO SOME INPUT 


LOAD LASI INPUT 
PLACE FOR A PATCH 
IS IT A C/R? 

YES 

LOAD WHAf WAS INPUT 

BRANCH IF NULu STRING ENTERED 
OTHERWISE, STORE ENTERED DATA 

CHECK FOR END OF INPUT BUFF RANGE 


NO* OF CHARS uN LAST INPUT 
IT WAS ONE 
IT WAS TWO 


ff ^ 

'Kj? 


LEFT JUSIIFY 3 HEX DIGITS 
STORE (EFFECTIVE) 2 BYTES 
PROCESS EVEN uUM OF BYTE 1 
SHIFT 4 AND ThEN.*. 

LEFT JUSIIFY ALL THE WAY 
PROCESS UDD NuM OF BYTES 


BYTES TO EXIT ROUTINE 



TITLE TCSC1*•REV B 


TEKMINbL TEU 
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000926 





/ DISPLAY 

MESSAGE IN HEX - 

MSH? 

000927 

02CB 




IMSD 

RESV 

0 


000926 

U2Cd 

93C0 

0005 



LNJ 

$B1* DMPHEX 


000929 

02Cu 

OEBB 




DC 

<QPMESP 


000930 

02CE 

0L6B 




DC 

<OPMRNG 


000931 

02 CF 

OF 8 1 

FE40 



b 

NEXT 


000932 





******** hex 

DUMP ON CONSOLE 


000933 





* 




0U0934 





* 




Q00935 





*CALL 

proceduke; 


000936 





* 


LNJ $bl* DMPHEX 


000937 





* 


DC <bOFFER—NAME 


000938 





* 


DC <RANGE-IN-WOKbS 

000939 





* 




000940 





^RESULT; TEN WORDS (IN HEX) PER 

CONSOLE UNE 

000941 





* 




000942 





* 




000943 

0201 




DMPHEX 

RESV 

0 


000944 

0201 

ACF1 




LOb 

$B2♦♦SB! 

GET BUFFER ADDRESS 

000946 

020l 

AFCO 

001 E 



STB 

3>B2iIMSF 

INIT PRINT CALL 

000946 

0204 

9809 




LDR 

SRI$*Sbl 

GET RANGE 

000947 

0205 

1000 




CMV 

$R 1 *0 

TEST FOR EMPTY BUFFER 

000948 

0206 

0980 


T 


bNE 

> + S A 


000949 

0207 

B3C0 

00C8 



LNJ 

$B3iERRMB 


000950 

0209 

5245 

43 56 

2042 


TEXT 

•RECV BUFFER IS EMPTY** 


02DC 

5546 

4645 

5220 







4953 

2045 

4050 







5459 

2400 






000951 

004 

ALF1 



$A 

LOb 

$b2**$bl 

DUMMY 10 POP ol 

000952 

02E5 

2C0A 




LDV 

$R2,10 


000953 

0216 

1A93 



DMPLP 

BLE2 

*R1♦>DPEX1T 

CHECK IF ANY (MORE) TO PRINI 

000954 

02E7 

200A 



1MSE 

CMV 

$R2 * 10 

CHECK FOR NEED OF CR/LF 

000955 

02E8 

0980 


1 


bNE 

> + S A 

CONTINUE DUMP ON SAME UNE 

000956 

02E9 

C3C0 

13E5 



LNJ 

SB4 *NEWLIN 


000957 

02 Ed 

8752 




CL 

= $R2 

STAKT-UP COUNI TO TEN 

000956 





$A 

CALL 

2 VS 1H#ZV$THZ*2ER0 

PRINT (SPACE)(SPACE)XXXX 


02EC 

FbCO 

0003 







02El 

0360 

0000 

X 






02F0 

0F60 








02 F 1 

0000 







000959 


02 F 1 



IMSF 

EOU 

S-SAF 


000960 






1FEV 

SAF »LG 


000961 

02F2 

6 A80 

02 Fi 



INC 

< I MbF 


000962 

02F4 

0F80 


I 


b 

> ♦ S A 


000963 

0<c.F5 

8A60 

02F2 


EG 

INC 

< I MSF 4- 1 


000964 

02F7 

8 A02 



SA 

INC 

= SR2 


000965 

02 Fb 

1 76E 




bote 

$R1 t >OMPLP 


000966 

02F 9 

6381 



UPtXIT 

JMP 

SB 1 




TITLE TCSC1 ♦ •RLV b» TERMINBL TEST 
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000967 




/ •TRM • FIELD CHECKING 

000968 

02 FA 

8740 

1291 

NEXTF 

CL 

INHRTC 

000969 

02 FC 

8740 

0310 


CL 

LAFLG 

000970 

02 Ft 

8 740 

046E 


CL 

RTSFLG 

000971 

0300 

8740 

046D 


CL 

TTFLG 

000972 

0302 

8740 

046C 


CL 

IDSFLG 

000973 

0304 

8740 

046C 


CL 

PINFLG 

000974 

0306 

8740 

0469 


CL 

RTPPLG 

000975 

0308 

9840 

0644 


LDR 

$R1»TEST 

000976 

030A 

9F40 

064D 


STR 

SRUERA 

000977 

030C 

9F40 

161A 


STR 

SRUPRTBF 

000978 

030E 

9F40 

0630 


STR 

SR U T COMP 

000979 

0310 

9970 

4C43 

A 

CMR 

SRI»sX»4C43* 

000980 

0312 

0987 



6NE 

>B1 

000v81 

0313 

9B80 

051D 


LAB 

SB1♦<LCEX 

00098*: 

0315 

9FC0 

0199 


STB 

SBUEXEC+l 

000983 

0317 

0F8 1 

OOCC 


6 

J1A 

000984 

0319 

9970 

4C46 

61 

CMR 

$R1»=X*4C4B* 

000985 

0316 

0986 



6NE 

>B 

000986 

0310 

9680 

0557 


LAB 

$B1»<LKEX 

000987 

0311 

9FC0 

0190 


ST b 

SB1* EXEC*1 

000988 

0320 

9F40 

02EC 


STR 

$R1,LAFLG 

000989 

0322 

9F40 

044C 


STR 

SR U IDSFLG 

000990 

000991 

0324 

0F81 

006F 

* 

6 

J1A 

00099*: 

0326 

9970 

4C4C 

6 

CMR 

$Rli=X*4C4C» 

000993 

0328 

0987 



6NE 

>C 

000994 

0329 

9680 

060L 


LAB 

SB1*<LLEX 

000995 

032b 

9FC0 

0183 


STb 

SBU EXEC*1 

000996 

032D 

0F6 1 

00D1 


6 

INCHN 

000997 

032 F 

9970 

4C41 

C 

CMR 

SRI»-X*4C41* 

000998 

0331 

098F 



BNE 

>Di 

000999 

0332 

9F40 

02DA 


STR 

SRULAFLG 

001000 

0334 

9F40 

043A 


STR 

SRU 1DSFLG 

001001 

0336 

9B80 

058E 


LAB 

SBi*<LMEX 

001002 

0338 

9FC0 

0176 


STB 

$B1iEXEC*1 

001003 

033A 

9870 

4300 


LDR 

SRU = X*4300« 

001004 

033C 

9F40 

0613 


STR 

SRUMESG 

001005 

033E 

0F81 

00A5 


6 

J1A 

001006 

0340 

9970 

454C 

D1 

CMR 

SRI*sX*454C* 

001007 

0342 

0989 



BNE 

>D 

001008 

0343 

9F40 

0426 


STR 

SRI*IDSFLG 

001009 

0345 

9680 

0460 


LAB 

SBI»<ELEX 

001010 

0347 

9 FCO 

0167 


STB 

SBUEXEC*1 

001011 

0349 

0F81 

0011 


B 

El 

001012 

0346 

9970 

4C52 

D 

CMR 

SR1$-X«4C52» 

001013 

034D 

0987 



BNE 

>E 

001014 

034t 

9B80 

0643 


LAB 

$Bi,<LREX 

001015 

0350 

9FC0 

01 51 


STB 

SBUEXEC*1 

001016 

0352 

OF 8 1 

OOAC 


6 

INCHN 

001017 

0354 

9970 

4C54 

E 

CMR 

SRU 5 X •4C54• 

001018 

0356 

098E 



BNE 

>F 

001019 

0357 

9680 

066A 


LAB 

$6U<LTEX 

001020 

0359 

9FC0 

0155 


STB 

SBUEXEC*1 

001021 

035b 

1C0I 


El 

LDV 

SR 1» s 1 

001022 

035C 

9F40 

OAF 4 


STR 

$R U PASSES 

001023 

035E 

9870 

4F00 


LDR 

SRU = X»4F00» 

001024 

0360 

9F40 

OAEF 


STR 

SRUMESG 

001025 

0362 

0F81 

0081 


6 

J1A 

001026 

0364 

9970 

5454 

F 

CMR 

$R1,-Xt5454» 

001027 

0366 

0993 

1C01 



BNE 

>G1 

001028 

0367 



LDV 

SR 1»-1 

001029 

0368 

9F40 

0405 


STR 

SR 1 * TT FLG 

001030 

036A 

9680 

07D6 


LAB 

SBU<TTEX 

001031 

036C 

9FC0 

0142 


STB 

SbUEXEC*i 

001032 

036E 

1C00 



LDV 

SRU-X* 0* 

001033 

036 F 

97C0 

03C6 


STH 

SRitPTLCTF 

001034 

0371 

97C0 

03C3 


STH 

SRIfPTLCTE 

001035 

0373 

89C0 

08D6 


CM2 

NPLFLG 

001036 

0375 

0981 

0081 


BNE 

N1 

001037 

0377 

OF 81 

006C 


6 

JIA 

001038 

0379 

9970 

4C58 

G1 

CMR 

SR1»J=X»4C58* 

001039 

0376 

0991 



BNE 

>G 

001040 

037C 

9F40 

0290 


STR 

SRltLAFLG 

001041 

037E 

9680 

0565 


LAB 

$61*<LXEX 

001042 

0380 

9F80 

04AF 


STB 

SBU<EXEC*1 

001043 

0382 

9870 

4300 


LDR 

SR U »X •4300 * 

001044 

0384 

9F 40 

0AC6 


STR 

SRUMESG 

0O1045 

0386 

9870 

C21D 


LDR 

$R U-2•C2ID• 

001046 

0388 

9F40 

0256 


STR 

B 

SRULMLC15 

001047 

038A 

OF 81 

0059 


JIA 

001048 

038C 

9970 

5254 

G 

CMR 

$R U sX•5254» 

001049 

038E 

099C 



BNE 

>H 

001050 

038 F 

1C01 



LDV 

$RU = 1 

001051 

0390 

9F40 

OACO 


STR 

SRUPASSES 

001052 

0392 

9870 

4F00 


LDR 

SRU=X»4F00» 

001053 

0394 

9F40 

0AB6 


STR 

SRUMESG 

001054 

0396 

1C01 



LDV 

SR U «X•1' 

001055 

0397 

9F40 

UF4 


STR 

SRI♦INHRTC 

001056 

0399 

97C0 

0396 


STH 

SRUPTLCTE 

001057 

0396 

89C0 

0861 


CM2 

SYNFLG 

0O1U58 

039D 

0900 


T 

BE 

>*$A 

001059 

039E 

9680 

06A9 


LAB 

SBU <RTSYX 

001060 

03A0 

9FC0 

OlOt 


STB 

SBUEXEC+1 

001061 

03A2 

0F81 

0041 


6 

JIA 

001062 

03A4 

9680 

0846 

SA 

LAb 

SBU<RTEX 

001063 

03A6 

9FC0 

0108 


STB 

SBI*EXEC*1 

001064 

03A8 

OF 81 

003b 


B 

JIA 

001065 

03AA 

9970 

5443 

H 

CMR 

SRU-X«5443» 

001066 

03 AC 

0986 



BNE 

>K 

001067 

03AD 

9680 

0933 


LAB 

S61t<TCEX 

001068 

03AF 

9 FCO 

OOFF 


STB 

SBU EXEC* 1 

001069 

0361 

9870 

4F00 


LDR 

$R U S X•4F00• 

001070 

0363 

9F40 

0A9C 


STR 

SRUMESG 

001071 

0365 

0F80 

03FF 


b 

<INCHN 

001072 

0367 

9970 

4453 

K 

CMR 

SRU=?X*4453» 

001073 

0369 

0981 

0009 


BNE 

L 

001074 

0366 

1C01 



LDV 

SRU^l 

001075 

036C 

9F40 

0A94 


STR 

SR U PASSES 

001076 

036E 

9680 

0503 


LAB 

SBU<DSEX 

001077 

03C0 

9 FCO 

OOEE 


STB 

$6UEX£C*1 

001078 

03C2 

0 F A 2 



B 

> J1A 

001079 

03C3 

9970 

5054 

L 

CMR 

SRU = X f 5054» 


CHECK VALIDITY QF .JEST HELD Oh TRM 

STORE IN PRINTOUT LOCATION 

TWICE 

LC 


V> 


LK 


LL 

LA 

INH1BH IDSS 

FORCE CANNED MESSAGE 

EL ***EIAbLISH LINE 
INHIBU IDSS 

LR 

LT 

FORCE TO ONE PASS 

TT 


LX #**LOOP EXTERNAL 


FORCE CANNED MESG 


KT 

FORCE 10 ONE PASS 


TC 

FORCE TO OPER SPECIFIED MESG 
DS ***REAu status 

PT 





TITLE TCSC1* 

REV 

TERMINBL 

TEST 
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UU1080 

03C5 

0981 

0035 



BME 

0 


001081 

03C7 

9F4Q 

03A6 



STR 

SRUTTFLG 

TO PRINT TERMINAL RESPONSE 

001082 

03C9 

9b60 

08C3 



LAB 

$B1 * <PRTOUT 

MODIFIED BY LT TESj 

001U83 

03CB 

9FC0 

039A 



ST B 

$B1* PR I NT 1♦1 


001084 

030) 

9670 

0000 



LDR 

$R1 * = X»0» 


I 00108 5 

030- 

97C0 

0366 



STH 

$R1 •PTLCTF 


| 001U86 

0301 

97C0 

0363 



STH 

SRI*PTLCTE 


*'• 00108 7 

0303 

69C0 

067b 



CMZ 

MPLFLG 


001088 

0303 

0981 

001B 



BME 

MPT 


001089 

0307 

1C20 



P 

LDV 

SRIi=X»20* 


001090 

0308 

9F00 

03E1 



STR 

SR 1* <PA +1 


001091 

030A 

9B80 

06tE 



LAb 

SB1,<PTEX 


001092 

03DC 

9FC0 

00D2 



STB 

SB1* EXEC +1 


001093 

030b 

9840 

0860 


M 

LDR 

SR 11POLADK 


001094 

03t0 

9A70 

0020 


PA 

ADD 

$R1*=X'20» 


001093 

03L2 

9 7 CO 

0350 



STH 

SRUPTLCTA 


001096 

03E4 

9840 

0 A6 A 


J1A 

LDR 

SRI*CHAN 


Oo1097 

03t6 

9570 

F F 80 



AMD 

Skl*=Z»FF80» 


001098 

Q3E8 

9F40 

0A65 



STR 

SRI*BCHAM 


001099 

03t A 

9 A70 

0040 



ADD 

SRi»=X»40» 


001100 

03tC 

OF 01 

FFFF 



MOP 

S 


001101 

03tt 

9F40 

0A60 



STR 

SRI* CHAM 


001102 

03F0 

OF 8F 




B 

>INCHN 


0U1103 





* 




001104 





* 




001105 





* CHANNEL PRUbRAM 15* MODIFIED HERE 

FOR NON-POLLEu terminal tests 

001106 





* 




001107 

03 F 1 

9F40 

037F 


MPT 

STR 

SR 1 * PIMF LG 


001108 

03F3 

9BCQ 

02F A 


N 

LAB 

SB1* PTEX 


001109 

03F5 

9FC0 

OOB9 



STB 

SB1 * EXEC+1 


001110 

03F7 

1C60 



Ml 

LDV 

SR1*=X«60* 


001111 

03F8 

9F00 

03b 1 



STR 

SR 1 * <PA +1 


001112 

03FA 

OF t4 




b 

>M 


001113 

G3FB 

BB80 

1626 


0 

LAb 

SB3 «<EMA 


001114 

03F0 

0F81 

09L9 



b 

OOPS 


001115 





* 




001116 





* TEST CHAM 

INPUT TO TRM 


001117 

03FF 

9640 

0A4F 


IMCHN 

LDR 

SRI*CHAM 


001118 

0401 

9970 

0400 



CMP 

SR 1 * = X 1 400 » 

CHECK LOWER LIMIT 

001119 

0403 

0204 




bL 

>INCHMA 


001120 

0404 

9970 

FFFO 



CMR 

SRI *=2*FFFO* 

CHECK UPPER LIMIT 

001121 

0406 

0205 




BL 

>inmesg 


001124 

0407 

AB80 

1629 


INCHMA 

LAB 

$B2 * <EMB 

LOAD MESSAGE ADDRESS 

001123 

0409 

0F81 

0900 



b 

OOPS 


001124 





# 




001125 





* CHECK MESSAGE-SPECIFIER INPUT 

TO TRM 

001126 

040b 

9840 

0 A44 


1NMESG 

LDR 

$R1 * MESG 

MESSAGE MUST dE 

001127 

0400 

9570 

FFOO 



AMD 

SRI*=Z*FF00» 


001128 

040F 

9F40 

0A40 



STR 

SRI*MESG 


001129 

0411 

9970 

4F00 



CMR 

SR 1 * = X•4FOO• 

0 FOR OPERATOR MESSAGE 

001130 

0413 

0908 




BE 

>INPSSO 

OR 

001131 

0414 

9970 

4300 



CMR 

SR1*=X»A300' 

C FOR CANNED MESSAGE 

001132 

0416 

092 A 




bb 

>INPSSC 


001133 

0417 

AB60 

162b 



LAb 

SB2 * <EMC 

00P5-NE11 HER 

001134 

0419 

OF 8 1 

09CO 



b 

OOPS 

GO TYPE ERROR MESSAGE 

001135 





* 




4t 001136 

041b 

9B60 

OEBb 


IMPSSO 

LAb 

$bl*<OPMESP 

LOAD MESSAGE ADDRESS 

1 001137 

0410 

9FC0 

0120 



SIB 

SB1* LCEXAM 


001138 

041 F 

9FC0 

010D 



STB 

SBULCEXU2 


* 001139 

0421 

9FC0 

03bC 



STB 

SB1•TTEXM 


001140 

0423 

9FC0 

1379 



STB 

SB1,EH1♦1 

PUT IN PRINTOUT LOCATION 

001141 

0425 

9FC0 

0326 



STb 

SB1iMSGBUF 


001142 

0427 

9840 

0A42 



LDR 

SRI *UPMRGB 

RANGE IN BYTES 

001143 

0429 

9F40 

0104 



STR 

SRI,LCEX1R 


001144 

042b 

9F40 

010A 



STR 

SR 1 * LCEX2R 


001145 

0420 

9F4Q 

03b 1 



STR 

SR 1 * T T EXR 


001146 

042F 

OFO 1 

FFFF 



MOP 

S 


001147 

0431 

9F40 

031B 



STR 

SR 1 * MSGRMG 


001146 

0433 

9840 

0A37 



LDR 

SRUOPMRNG 

RANGE IN WORDS 

001149 

0435 

9F40 

0120 



STR 

SRI*CRANG 


001150 

0437 

9B80 

0b6A 



LAb 

$81*<OPMKGB 


001151 

0439 

9FC0 

135C 



STB 

$B1,EHAM1 


001152 

043 b 

9B80 

0b66 



LAB 

Sbl*<OPMRMG 


001153 

0430 

9FC0 

1361 



STB 

SB1 * EHAM2 + 1 


001154 

043F 

OFA1 




b 

>IMPSS 


001155 





* 




001156 

0440 

9B80 

0b74 


IMPSSC 

LAb 

Sbl*<CAMMED 

DITTO 

001157 

0442 

9FC0 

135A 



STB 

SB 1 * EH1♦1 


001158 

0444 

9 F CO 

00F9 



STB 

Sbl*LCEXAM 


001159 

0446 

9FC0 

00E6 



STb 

SB1tLCEXl+2 


001160 

0446 

9FC0 

03C5 



STb 

SB 1,TTEXM 


001161 

044A 

9FC0 

0301 



STB 

SB1* MSGBUF 


001162 

044C 

9870 

0084 



LDR 

SRI* = X* 84 * 


001163 

044t 

9F40 

OODF 



STR 

SRI*LCEX1R 


001164 

0450 

9F40 

00E5 



STR 

SR 1 * LCEX2R 


001165 

0452 

9F4Q 

03BC 



STR 

SR 1 * 1TEXR 


001166 

0454 

9B80 

08 OF 



LAb 

SB1*<TTEXR 


001167 

0456 

9FC0 

1348 



STB 

Sbl* EHAM2+1 


001166 

0456 

9FC0 

1330 



STb 

Sbl*EHAM1 


001169 

045A 

9F40 

02F2 



STR 

SR 1 * MSGRNG 


001170 

045C 

9870 

0042 



LDR 

SR 1, = X * 42• 


001171 

0451 

9F40 

00F7 



STR 

SR 1 * CRAMG 


001172 





# 




001173 

0460 

9840 

09FO 


IMPSS 

LDR 

SRI,PASSES 


001174 

0462 

1 AO 1 

0004 



bGZ 

SRI*INERCO 

GREATER 1 HAN <.ERO? ? 

001175 

0464 

1C01 




LDV 

SR 1 * ~ 1 


001176 

0465 

9F4Q 

1125 



STR 

SR 1 * MOSTOP 


001177 





* 




001178 





# 

DETERMINE wHAT TO 00 WITH ERRORS 

001179 





* 




001180 

0467 

AB60 

1631 


IMERCO 

LAB 

SB2*<EME 


001181 

0469 

9640 

09E8 



LDR 

SR1*ERC0 


001182 

046b 

9570 

4300 



AMO 

SR 1 * =2 1 4300• 


001183 

0460 

9970 

4300 



CMR 

SR 1, = X * 4300 * 

TEST FOR C 

001184 

046 F 

0960 


T 


BME 

>«-$A 


001185 

0470 

9F40 

09E1 



STR 

SRUERCO 


001186 

0472 

0F6C 




8 

>SEHA 


001187 

0473 

9840 

090b 


*A 

LDR 

SRi*ERCD 


001188 

0475 

9970 

4E43 



CMR 

SR 1 * = X•4E43 9 

TEST FOR NC 

I 001189 

0477 

0980 


1 


bNE 

>♦$ B 


I 001190 

0476 

OF 8b 




B 

>SEHC 


001191 

0479 

9970 

4643 


SB 

CMR 

SR1,=X*4643» 

TEST FOR FC 

001192 

047b 

0961 

096b 



BME 

OOPS 






TITLE TCSC1,«REV B» TERMINBL TEST 
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001193 

0470 

OFbF 




6 

>SEHD 



001194 





* 





001193 





* 

LIST 

EACH tRROK ON CONSOLE 



001196 





* 





001197 

047E 

BBbO 

178C 


SEHA 

LAB 

$B3 *<EH2 



00119b 

04b0 

BFCO 

1304 



STB 

$B3 * EH+1 



001199 

0482 

0F92 




B 

>BEgIN 



001200 





* 





001201 





* 

SUPPRESS ERRORS 



001202 





* 





001203 

0483 

9870 

0F80 


SEHC 

LDR 

$R1*52»0F80» 



001204 

0485 

9F40 

12FE 



STR 

$R1*EH 



001205 

0487 

BB60 

1923 



LAB 

$B3 * <EHB 



001206 

0489 

6FC0 

12F6 



STB 

$B3*EH*1 



001207 

0486 

OF 89 




B 

>BEGIN 



001,20b 





# 





001209 





* 

SUPPRESS* THEN SUM ON CONSOLE 



001210 





* 





001211 

048C 

9870 

0F80 


SEHD 

LDR 

$R1*5=2«0F80» 



001212 

048t 

9F40 

12F5 



STR 

$R1 * EH 



001213 

0490 

6680 

1925 



LAB 

$B3 * <EHC 



001214 

0492 

6FC0 

12F2 



STB 

$B3,EH+1 



001215 





* 





00U16 

0494 

93C0 

109A 


bEGlN 

LNJ 

SBUCONTS SET UP THE 

CONTROL 

words 

001217 

0496 

89C0 

096A 



CMZ 

PASSES 



00121b 

0498 

0980 


T 


BNE 

> + $A 



001219 

0499 

1C01 




LDV 

$R1*=1 



001220 

049A 

9F40 

1 OF 0 



STR 

SRI*NOSTOP 



001221 

049C 

A3C0 

1296 


$A 

LNJ 

$62 tECHOX 



001222 

049L 

8740 

0967 


6EGINM 

CL 

MESGT MESG^O SAY5 

CANNED 

MESSAGE 

001223 

04A0 

8740 

0962 



CL 

PCNT 



001224 

04A2 

C3C0 

0AC1 



LNJ 

$64 * CCBRST 



001225 

04A4 

9870 

0030 



LDR 

$R1 * ~X * 30• 



001226 

04A6 

93C0 

08C3 



LNJ 

$61 * TMO 



001227 

04Ab 

OFO1 

FFFF 



NOP 

$ 



00122b 

04AA 

9B80 

04At 



LAB 

$61*<EXEC 



001229 

04AC 

9I-C0 

049C 



STB 

$B1tCOUNTR*1 



001230 

04AL 

OFfaO 

04AE 


EXEC 

6 

<EXEC ADDR IS SET 

during 

DECODE OF TEST FIELD 


f 





TITLE TCbC1»* REV b« 

' TERMINbL 

TEbT 



001231 






/**********! 

00123c 






* 


001233 






* SET 

UP Lli 

001234 






* 


00123b 






*********** 

00123b 

04b0 

b3C0 

08 F 7 



ELEX 

LNj 

001237 

04b2 

DF 40 

10D7 




ST K 

00123b 

04B4 

D970 

3118 




CMR 

001239 

0406 

0900 



T 


BE 

00U40 

04B7 

D3C0 

OiAA 




LNJ 

001241 

04B9 

C3C0 

0B78 



$A 

LNJ 

001242 

04bb 

9870 

0200 




LDR 

001243 

04bD 

93C0 

08AC 




LNJ 

001244 

04BF 

0F01 

FFFF 




NOR 

00124b 

04C1 

E3C0 

1OOA 




LNJ 

001c4o 

04C3 

93C0 

0F60 




LNJ 

001C47 

04Cb 

11 IB 





DC 

001c46 

04C6 

0020 





DC 

001^49 

04C/ 

0400 





DC 

001c 50 

04Cb 

0000 





DC 

0012 b1 






* 


OQ12b2 

04C9 

9840 

04D3 




LDR 

00l2b3 

04Cb 

9F40 

0331 




bTR 

0012 b4 

04CU 

9840 

06D6 




LDR 

OQUbb 

04CF 

9 A70 

0022 




ADD 

001236 

04D1 

9F40 

034C 




bTR 

0 012 b 7 

04D3 

9870 

OOCO 




LDR 

0012 5b 

04Db 

97 CO 

0349 




bIH 

001239 

04D7 

0F81 

0334 




b 

001260 






* 


001261 

04D9 

BB80 

04E8 



ELEX 1 

LAb 

001262 

04Db 

C3L0 

1209 




'LNJ 

001263 






SO 

CALL 


04DD 

POFO 

0001 






04DF 

D380 

0000 


X 



001264 

04tl 

6980 

0000 


X 


C HZ 

00126b 

04E3 

097 A 





bt 

001266 

O 4 E 4 

L360 

Of-97 




LNJ 

00126/ 

04Lo 

0F60 

0110 




b 

001266 






* 


001269 

04Lb 

304C 

4341 

3345 


INShG 

TtXT 


04tb 

204b 

5334 

4142 






4C49 

5348 

204C 






494E 

4320 

434F 






4E4E 

4543 

5449 






4F 4E 

2041 

4E44 






2046 

4934 

2022 






4232 

4341 

4022 






204b 

4559 

2400 
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CONNECT IN FOR MODEMS 


Sb3* 1 NI D 
SRb * ACLAID 
$R5»=X* 3118* 
>*$A 

Sbb * IDCHK1 
Sb4»GENiTZ 
$R1»=X*200* 
SbiiTMO 
$ 

$B6 *STMT 
SbUSDATA 
<TTA 
X»2U* 

X 1 400 * 

0 

3>R 1 t LC TbKb 
SRUTTLCTA 
SKI ,LR6CFA 
$k 1 * = X•22 * 
SRI*1TLCTb 
$R1,=X*CO* 

$k 1 * 11LCTC 
TTEM 

SB3,<INSMC> 
$04,TYPEC 
ZVSuRK 


<ZV*BKF 

>-$0 

$04 i < I DSS 
<NEXl 


GEN INITIALIZE 


LCT 2U 


* PLc.ASE ESTABLISH LINE CONNtCUON AND Hit »BREAK" KEYS* 



TEKMI/MbL TEST 
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TITLE TCSU,*REV b» 


001270 

001271 

001272 

001273 

001274 

001275 

001276 

0503 

OF 80 

0F97 


001277 

osos 

D570 

FFOO 


001276 

0507 

DF40 

OOOA 


001279 

0509 

BB60 

0513 


001280 

050B 

C3C0 

11D9 


001281 

OSOD 

C3C0 

1204 


001282 

001283 

001284 

050F 

OS 10 

0512 

0F6 1 

FBFF 


001285 

001286 

OS 12 
OS 13 

0000 

4441 

5441 

2053 


0S16 

4554 

2053 

5441 



5455 

2400 

5320 

4953 


/*********** * ****** * 
* 


* READ DATA SET STATUS AND PRINT IN HEX 

* 

******************** 

* 


DSEX b 
ST CK AND 
STR 
LAB 
LNJ 
LNJ 
DC 

* 

b 

DSS1 DC 
STATUS TEXT 


< I DSS 

$R5«::Z»FF00* 

$R5,DSS1 
$b3 » <ST ATUS 
Sb4 * TYPEC 
$B4*HEXPRT 
<DSSl 

NEXT 

0 

♦DATA SET STA1US IS** 


STRIP 2ND BYTt 


* 


DO 1287 



TITLE TCSC1» 1 

REV b' 

1 TERMINBL lEof 
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001288 




/ft****************** 


00U89 




* 



001290 




* LOOP A MESSAGE AT THE OLCP 


001291 




* 



00U92 




* NO ADAPTERS ARE necessary for 

THIS TESI 

00U93 




* 



001294 




#*#*****##*#**#***#* 


001298 

0810 

d3C0 

088A 

LCEX LNJ 

SB3 * 1 N1 D 

GET THt ID 

001296 

03 1 F 

0570 

FFOO 

AND 

SR5 * = Z * FFOO * 


001297 

0321 

0970 

3100 

CMR 

SR5 * = X 1 3 100 * 

IS IT UK? 

001296 

0323 

0901 

0005 

BE 

LCEX1A 


001299 

0323 

L870 

3100 

LOR 

SR6*=X*3100* 


001300 

0827 

OF 8 1 

0850 

b 

IOERR 


001301 




* 


001302 

0529 

L3C0 

0FA2 

LCEX1A LNJ 

$B6*STMT 


001303 

032B 

93C0 

OLF 8 

LCEX1 LNJ 

SBltSDATA 


001304 

0520 

0E74 


OC 

<CANNEO 

MESSAGE ADDRESS 

001308 

032b 

0000 


LCbXlR RESV 

1*0 

RANGE 

001306 

032F 

0400 


OC 

X * 400• 


001307 

0330 

0000 


OC 

0 


001306 

0531 

C3C0 

11F 8 

LNJ 

SB4 * CLRECL) 

CLEAR RECEIVE BUI 

001309 

0333 

93C0 

0F4B 

LNJ 

$B1*ROATA 

001310 

0535 

1705 


OC 

<RECO 

INPUT BUFFER 

001311 

0536 

0000 


LCEX2R RESV 

1*0 

RANGE 

00131c 

0537 

0400 


OC 

X 1 400 * 


001313 

0538 

0000 


OC 

0 


001314 




* 



001313 




CALL 

ZVSC*CANNED,KtCD,XZERO,CRANG,bRRAY 


0539 

FBCO 

0003 





053b 

0380 

0000 X 





0530 

OF 80 






053b 

0L74 






053F 

1705 






0540 

1922 






0541 

0556 






001316 


053E 


lclxam 

EUU 

S-5*SAF 

001317 

0543 

9840 

0012 


LDR 

$R1 *CRANG 

001318 

0345 

9F40 

0929 


STR 

SRI ,RCVRNG 

001319 

0347 

9840 

OOOB 


LDR 

$R1*EKRAY 

001320 

0549 

1901 

03EC 


bbZ 

SRI,COUNT 

001321 

054b 

8AC0 

090b 


INC 

ERCT 

001322 

034U 

9B80 

0E33 


LAb 

SB 1,<EM4 

001323 

054F 

9FC0 

13F4 


STB 

Sbl,MWFB 

001324 

001325 

0551 

OF 81 

1242 

* 

b 

EHA 

00132b 

0553 

0000 


erray 

RESV 

3*0 

001327 

0556 

0000 


CRANG 

RESV 

1*0 

001328 




* 


ALLOW DUMP OF WHOLE reCO BUFFER 
IF CALLEO FOR BY RmH? 


RANGE FOR COMPARI5qN PURPOStS 





TITLE TCSC1* 1 REV b« TERMINbL TEST 
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001329 

001330 

001331 

001332 

001333 

001334 

001336 

0667 

A3C0 

06E0 

001336 

0669 

9870 

EOOO 

001337 

0550 

9F40 

0648 

00133b 

066D 

9870 

0019 

001339 

065F 

97C0 

0349 

001340 

0661 

97C0 

0348 

001341 

0663 

OFbl 

02E7 

001342 





/******************* 

* ECHOES THE RECEIVED MESSAGE AND PRINTS IT 

* 

******************** 

* 

LKEX LNJ $B2 *FUPN FORCE NO 


LNJ 

$B2»FUPN 

FORCE NO PARITY 

LDR 

$R1* EOOO * 

FORCE 8 BIT* 1 STOP BIT ANp N PARITY 

STR 

$R1,LK6CFA 

LDR 

*R1,=X*0019» 

LCT 28 HAS ChAR FOR COMPARE 

STH 

$RlfRTLCTE 


STH 

SRitRTLCTF 

LK TESI FLAG 

b 

RTEX 






TITLE TCSCl* * REV B* TERM INBL TEST 
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OG1343 
001344 
001345 
001346 
001347 
001346 
001349 
001350 
001351 
001353 
001353 
001354 
001355 
001356 
001357 
001356 
001359 


001360 

001361 

001363 

001363 

001364 

001365 

001366 


/***#********■****#** 

# 

* LOOP AT EXTERNAL 

* 

* EXTERNAL LOOP CuNNECTER NECESSARY FOR THIS TEST 

* 

******************** 


0565 

B3C0 

0842 


LXEX 

LNJ 

$B3 ♦ IN10 

0567 

0F40 

1022 



STR 

$R5♦ACLA1D 

0569 

DF40 

0205 



STK 

SR5 »IOSFLG 

056o 

OF 0 1 

FFFF 



NOP 

$ 

0560 

0970 

3118 



CNR 

$R5,5X*3llb» 

056F 

0901 

0012 



BE 

LXASY 

0571 

0970 

3158 



CMR 

$R5,sX*3158» 

0573 

0901 

0014 



bt 

LXSYN 

0575 

b360 

1OAO 



LNJ 

$B3 *<ERRMb 

0577 

4 144 

4550 

5445 


TEXT 

•AOLPTER 10 

05 7 A 

5220 

4944 

2049 





4E43 

4F52 

5245 





4354 

2400 





0562 

9670 

C314 


LXASY 

LOR 

$R1♦•C314• 

0564 

9 F 40 

0059 



STR 

$R1* LMLCT 4 

0566 

OF 8 1 

0019 



B 

LMAX 

0566 

9870 

CB14 


LXSYN 

LOR 

*Rl.sZ*CB14» 

056A 

9F40 

0053 



STR 

$R1*LMLCT4 

056C 

0F61 

0076 



B 

LNSYX 


ASYNC ID 
5YNC 10 


lMCORRLLT$ * 


SET XM1T»RECV ON FOR ASYNC LINE 
LCT 20 

set direlt connect f xmit*recv on 

LCT 20 



c 






TITLE TCSCl,•REV B* TERMlNbL TEST 
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001367 

001368 

001369 

001370 

001371 

001372 

001373 

001374 

001375 

001376 

001377 

001376 

001379 

001380 

001381 

001382 

001383 

001384 

001385 

001386 

001387 

001388 

001389 

001390 

001391 

001392 

001393 

001394 

001395 

001396 

001397 

001396 

001399 

001400 

001401 

001402 

001403 

001404 

001405 

001406 

001407 

00140a 

001409 

001410 

001411 

001412 

001413 

001414 

001415 

001416 

001417 

00141a 

001419 

001420 

001421 

001422 

001423 

001424 

001425 

001426 

001427 

001426 

001429 

001430 

001431 

001432 

001433 

001434 

001435 

001436 

001437 

001436 

001439 

001440 

001441 

001442 

001443 

001444 

001445 

001446 

001447 


058E 

0590 

0592 

0594 

0596 

0598 

059A 

059C 

059E 

05A0 

05A2 

05A4 

05A6 

05Aa 

05A9 

05AO 

05AD 

05AF 

05B1 

05B3 

0565 

05B7 

0509 

056b 

0560 

05bF 

05C0 

05C1 

05C2 

05C3 

05C5 

05C7 

05C9 

05CA 

05Cb 

0500 

05CE 

0500 

0501 

0502 

0503 

0505 

0506 

0507 

05D6 

0509 

05DA 

0506 

050C 

0500 

050E 

050F 

O5E0 

05E1 
05 E 3 
05E5 
05E 7 
05E6 
G5E9 
05E6 
05E0 
05EF 
G5F0 
05F2 
05F3 
05F5 

0 5 F 7 
05FV 
05Fb 
05FC 
05F0 
05FE 
05FF 
0600 


9870 

9F40 

9870 

9F40 

B3CG 

0F40 

0970 

0901 

03C0 

C3C0 
9840 
9F40 
OFQ 1 
8751 
9700 
9840 
9F40 
9B80 
9FC0 
9840 
9 A70 
9F40 


0714 

0040 

0610 

004A 

0811 

OFFi 

3158 

0066 

OOBb 

03DB 

03F0 

0036 

FFFF 

0033 

FF82 

0010 

0503 

0397 

05F0 

0022 

0024 

FFFF 


0000 

0000 

0010 

0714 

061E 

0000 

9840 
UFO 1 
0300 
OF 80 
4000 
E300 
0300 
0F81 
7004 
0300 
8805 
0940 
0961 


0860 

FFFF 

0A86 


OEOF 

0091 

0245 

02E0 

FF3A 

00A5 


F6GQ 0003 
0380 0000 
OF 80 
0E74 
1705 
1922 
0556 
0553 


#*#*#*****#********* 

* 

* LOOP A MESSAGE AT THE OLA 

* 

* 

* 

a-****##**#**#***###* 

LMEX 


ADAPTtKS MAY BE EITHER SYNC OR ASYNC* 


* 

LMAX 


LMAX1 


E300 

OF 10 

LMEX1 

LNJ 

9300 

0E66 


LNJ 

10A0 



DO 

0000 



DO 

0200 



PC 

0000 


* 

00 

C3C0 

1166 

LMAM 

LNJ 

0300 

099E 


LNJ 

0300 

0F2B 


LNJ 

0E74 


LMEXM 

DO 

0000 


LMRNG 

RESV 

0040 


* 

DC 

OFO1 

FFFF 


NUP 

0300 

0F12 


LNJ 

1705 



00 

0090 



DC 

0040 


* 

DC 

6300 

0A83 


LNJ 

0507 



DC 

0F8B 



b 

0226 


LMLCT 

DO 

7627 



DO 

0206 



DC 

0007 



00 


LMLGT1 

LMLGT2 

LML0T3 

LML0T4 

LML0T5 

LMEXB 


$A 


LMENO 


CLEAR SYNC FLAG 


LOR $R 1 ,=Z * 0714• 

STR $R1,LMLCT4 

LOR $R1,*Z*C61D* 

STR $R1,LMLCT5 

LNJ $b3 * IN10 

STR $R5»AOLA10 

OMR $R5,=X* 3158* 

BE LMSYX 

LNJ $B 6 ,1OCHK 

LNJ $64 *MBR 

LOR $R1 * LC TBRB 

STR $R1,LMLCT1 

NOP $ 

OL =$R1 

STH $R 1 ,LMLCT 3 

LOR $R1,LCEX1R 

STR $R 1 ,LMRNG 

LAB $B1 1 <LMAM 

STB $B1,C0UNTR+1 

LOR $R1,LR6CFA 

AOO $R1,*X*22* 

STR $R1,LMLCT2 

'NOP $ 

$B 6 * STMT 
$B1*S0ATA 
<LMAA 

(AOIi-LMAA)*2 
X * 200• 

0 

$64 * OLREOO 
$64,CCBRST 
$B4 9 MCCB 
<OANNt0 
1,0 
X * 40 * 

$ 

$B4,MCObR 
<REOO 
X * 90 * 

X'4u» 

$B3,SET LOT 
<LMlCT 
>LMtXb 

X 1 226 * 

X* 7627 * 

X*2u6» 

X * 7 • 

RESV 1,0 

RESV 1,0 

00 X*Q01C* 

DO 2*0714* 

00 2 * 061E * 

00 0 

LOR $R1,CHAN 

NOP $ 

LNJ $64,CHCTR 

B > + $A 

00 2*4000* 

LNJ $B 6 ,SRCV 

LNJ $B4,TEST SR 

B TTExE 

LDv $R7,sX*04* 

LNJ $64,CNT ROV 

OEO =$R5 

OMR $R5,LOEX1R 

bNE ERR 

CALL 2V$C,CANNED,RECO,XZLRO,ORANG,ERRAY 


IN CASE MMODIPIEP BY LX IEST 


INPUT (HE ID 


CONTROL WORD 


RANGE IN BYTE^? 
CONTROL WORD 


BAUD RATE 
CONFIG# 

LOT 28 SYNC FuAG 
LOT 20 


ADJUST COUNT FOR EQM 


001448 

001449 

0601 

OF 81 

0095 

* 

b 

LTEX02 





001450 

0603 

9870 

1634 

LMSYX 

LOR 

$R1,5X*1634* 

LOT 

62 

SYNC 

CHAR 

001451 

0605 

9F40 

FFD5 


STR 

$R1,LMLCT1 




001452 

0607 

9870 

0001 


LOR 

$R1,sX * 1 • 





001453 

0609 

9700 

FF03 


STH 

$R1,LMLCT 3 

LOT 

28 

SYNC 

< 

J 

-L. 

001454 

001455 

0606 

0F81 

FF9F 

* 

b 

LMAX1 





001456 

0600 

0000 


LAFLG 

DC 

0 





001457 




* 









4 \ 
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TITLE TCSCl*»RtV B* TERMINBL TEST 


00145b 

001459 

001460 

001461 

001462 

001463 

001464 

001465 


00147c 

001477 

001*78 

001479 

001480 

001481 

001482 

001483 

001484 

001486 

001486 

001487 

001488 

001489 

001490 

001491 

001492 


0622 0000 


0623 0000 


0624 0000 


0625 

0627 

0629 

062B 

062L 


bB80 
C3C0 
QF81 
5468 
6F6D 
2069 
7420 
6L61 
666F 
6973 
6561 


062B 

10BD 

FAE6 

6973 

6061 

7320 

6176 

626C 

7220 

2072 

7365 


2063 

6E64 

6L6F 

6169 

6520 

5468 

656C 

2E24 


******************** 

* 

* LOOP A MESSAGE AT THE LOCAL 

* 

* PROGRAM WILL CHECK FOR LOOP 

* 

******************** 


001466 

060E 

B3C0 

0799 

LLEX LNJ 

$B3♦INID 

001467 

0610 

OFbl 

0014 

B 

NOT 1MP 

001466 

0614 

D970 

2100 

CMR 

$R5 * = X•2100• 

001*69 

0614 

0901 

OOOD 

BE 

LLEXA 

001*70 

0616 

D970 

2101 

CMR 

$R5,=X»2101* 

001*71 

0618 

0901 

OOOA 

bE 

LLEXB 

001*74 

061A 

D970 

2102 

CMR 

$R5.=X*2102* 

001*73 

061C 

0901 

0007 

BE 

LLEXC 

001*74 

061E 

E870 

2100 

LDR 

$R6 * = X•2100• 

001*75 

0620 

0F81 

075 7 

b 

I DERR 


MODEM 

CAPABILITY AND IF SUPPORTED 
INPUT THE ID 

PRINT "NUT IMPLEMENTED” MESSAGE 
SYNC WITH EXT CLOCK 

SYNC WITH EXT CLOCk 

ASYNC 


* 

* 

LLEXA 

* 

SYNC WITH OIK CONNECT 


SYNC WITH EXT CLOCK 
hlT 


HLT 


* 

LLEXB 
* 

* ASYNC 

LLEXC HLT 

* 

NOT IMP LAB 
LNJ 

NOTAVL TEXT 


$B3 * <NQTAVL 
$B4 *T YPEC 
NEXI 

•THIS COMMAND IS 


PRINT "NOT AVAILABLE" MESSAGE 
NOT AVAILABLE FOR THIS RELEASE.** 





TITLE TCSC1»»REV b» TERMINBL TEST 
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001493 
001494 
00149b 
001496 
001497 
001498 
001499 
001300 
001501 
001302 
001b03 
001b04 
OOlbOb 
001b06 
001b07 
001308 
001b09 
001510 
00 lb 11 
001312 


/ 

******************** 

* 

* LOOP A MESSAGE AT THE REMOTE MODEM 

* 

* PROGRAM WILL CHECK FOR LOOP CAPABILITY AND IF SUPPORTED 


******************** 


0643 

B3C0 

0764 

LREX LNJ 

$B3,INID 

GET THt ID 

064b 

0F81 

FFDF 

B 

NOT 1MP 

PRINT "NOT IMPLEMENTED' 

0647 

D970 

2100 

CMR 

$R5,=X»2100* 

SYNC WITH EXT CLOCK 

0649 

0901 

GOOD 

BE 

LREXA 

064b 

D970 

2101 

CMR 

SR5,=X»21Q1» 

SYNC WITH DIR CONNECT 

064D 

0901 

OOOA 

BE 

LREXB 

064F 

D97Q 

2102 

CMR 

$R5,=X*2102» 

ASYNC 

06b 1 

0901 

0007 

BE 

LREXC 


06b3 

E870 

2100 

LDR 

$R6»-X * 2100 1 


06bb 

OF 81 

0722 

B 

* 

* SYNC WITH 

IDERR 

tXT CLOCK 



00 lb 13 





* 



001b14 

0637 

0000 



LREXA 

HLT 


001b lb 





* 



0Qlbl6 





* SYNC WITH 

DIRECT CONNECT 

001b17 





* 



001318 

0638 

0000 



LREXB 

HLT 


001319 





* 



001320 





* ASYNC 


001321 





* 



001322 

0639 

0000 



LREXC 

HLT 


001323 





* 



001324 

063A 

0970 

3118 


1DCHK 

CMR 

$R3t=X*3118» 

001323 

063C 

0900 


T 


BE 

> + $A 

001326 

0630 

E870 

3118 



LDR 

$R6 * sX * 3118• 

001327 

06 5 F 

OF 8 1 

0718 



b 

IDERR 

001328 

0661 

8383 



*A 

JMP 

$B5 

001329 

0662 

9870 

3158 


IDCHK1 

LDR 

SR 1 * sX•3158• 

001330 

0664 

D970 

3158 



CMR 

$R5*=X*3158« 

001331 

0666 

0900 


T 


bt 

> + $A 

001332 

0667 

OF 8 1 

0710 



b 

IDERR 

001333 

0669 

8385 



3>A 

JMP 

Sb5 


MESSAGE 


/f 




TITLE TCSC! , • 

REV B 1 

' TERMJNBL TEST 
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001334 




/ 




001335 




******************** 


001336 




* 




001537 




* TRANSMIT 

A MESSAGE TO A TERMINAL. 


^ 00153b 




* 




m 001539 




* OPERATOR 

KEYS IN SAME MESSAGE AT TERMINAL 


■ 001540 




* 




001541 




* RECEIVED 

MESSAGE IS CHECKED AGAINST TRANSMITTED MESSAGE 


001542 




* 




001543 




******************** 


001544 

066A 

B3C0 

0730 

LTEX 

LNJ 

*B3,1NID INPUT (HE ID 


001345 

066C 

DP 40 

OF 1D 


STR 

$R5,ACLAID 


001546 

0661 

89C0 

03DE 


CM2 

SYNFLG 


001547 

0670 

0981 

0038 


bNE 

RT5YX 


00154b 

0672 

D3C0 

FFE7 


ENJ 

$B3 , 1DCHK 


001549 




* 




001550 




* 




001551 

0674 

C3C0 

0307 

LTEXA 

ENJ 

$B4,MBR TRANSMIT BUFFcR 


001552 

0676 

9B80 

0684 

LTEXS 

LAb 

$B1,<LTEXB 


001353 

0678 

9FC0 

01D1 


STB 

$Bi, TTEXD-H 


001554 

067A 

9B80 

OEBb 


EAB 

Sbl,<OPMESP 


001353 

067 L 

9FC0 

0191 


STb 

$B1iTTEXM 


001556 

067L 

9840 

OOED 


EDR 

SRWLTSRNG 


001557 

0680 

9F40 

018E 


STR 

$R1»T TEXR 


00155b 

0682 

OF 81 

0173 


b 

TTEXAC 


001359 




* 




001560 




* message now on terminal, operator echoes message 


001561 




* AS 

HE SEES IT. 


00156c 




* 




001563 


0684 


LTEXb 

EUU 

$ 


001364 

068 4 * 

0F81 

OlEA 

LTEXC 

b 

RTEXAA 


001565 




* 




001566 




* OPERATOR 

HAS ECHOED THE MESSAGE 


001367 




* COMPARE 

XM1T TO RECD 


00136b 




* 




001369 

0686 



LTEXD 

RESV 

0 


001570 

0686 

7C0D 



LDV 

$K7,=X»0D« 


001371 

0687 

C3C0 

0233 

LTEXD1 

LNJ 

$B4,CNTRCV COUNT NUM OF RECEIVED BYTES 

00157c 

0689 

5E0 1 



AOV 

SR5«1 ADJUST RANGE COMPARE FOR 

XMlT ED CR-LF 

001573 

068 A 

0940 

FEA3 


CMR 

$R5 *LCEX1R CHECK RCV RANoE VS. XMlT 

range 

001574 

068C 

098F 



bNE 

>ERK 


001373 





CALL 

ZV$C*0PMESG,RECD,X2ER0*RRANGE»ERRAY 



0680 

FBCO 

0003 






068 p 

0380 

0000 A 






0691 

0F80 







0692 

OEBC 







0693 

1705 







069* 

1922 







0693 

0E6C 







0696 

0533 






001376 

0697 

9840 

FLBB 

LTEXD2 

LOR 

$R1,ERRAY 


001377 

0699 

1901 

029C 


BEZ 

SRI,COUNT 


00137b 

069o 

8 AGO 

07BB 

ERR 

INC 

ERCT 


001379 

069L 

9B80 

0E33 


LAB 

SB1,<EM4 


001580 

069F 

9PC0 

12A4 


STB 

sbl, MW FB 


001581 

06 A1 

B3C0 

1294 


ENJ 

$B3,SUEM SET UP ERROR MESSAGE 


^ 00138c 

06A3 

bB80 

1927 


LAb 

$B3,<PRTBP 


£ 001383 

06 A3 

C3C0 

10 3 F 


LNJ 

SB4,TYPEC 


■ 001584 

06 A 7 

OF 8 1 

10EG 


b 

EHA TYPE ERRUR ANu EXIj 


I 001585 




* 





c 
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TITLE TCSC1, •REV B» TtRMINbL TE^T 
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00l623 
001624 
001c25 
001 o 2 6 
001627 
00162b 
001629 
001630 


001631 

06D9 

9B80 

0687 

ltsyx lab 

$B1»<LTEX01 

001632 

ObDB 

9r CO 

008 A 

STb 

SBUPR1NTU1 

001633 

06DD 

9B60 

OEBB 

LAB 

SB 1 »<OPMESP 

001634 

06 DP 

9FC0 

006C 

STB 

S61,MSGbUP 

001636 

06E1 

9840 

008A 

LDK 

SR1,LTSRNG 

001636 

06E3 

9F40 

0069 

STR 

SRI,MSGRNG 

001637 

06ES 

1C01 


LDV 

SR1,=X*1» 

00163b 

06E6 

9F40 

0086 

ST K 

SR 1iRTSFLG 

001639 

U6E8 

9 7 CO 

004C 

STH 

$Ri»PTLCTE 

001640 

061A 

9FH0 

0EA1 

STR 

SRI,INHRTC 

001641 

06EC 

OF 8 1 

PFD4 

B 

RTSYY 


IHHUHHHUHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHl;# 

*#****#*#*L1 TEST FOR SYNCHRONOUS TERM1NAL**##**## 

* TRANSMIT A MESSAGE TO TERMINAL 

* OPERATOR XEYS IN SAME MESSAGE AT TERMINAL 

* RECEIVED MtSSAGE COMPARED AGAINST XMITIED MESSAGE 

* 


TO NULL EOT IN CNTRCV 
RT FLAG 



TITLE TCSCi,' 

'REV 6' 

• TERMINbL 

TEST 
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001642 





/ 





001643 





*********************** 



001644 





* 





001646 





* TRANSMIT 

A PULl/SELECT message 

TO TERMINAL 

y">, 

001646 





* 





001647 





*********************** 



001646 

06EL 

63C0 

0669 


PTEX 

LNJ 

$63 * 1NI0 



001649 

06f-0 

OF 40 

0E99 



STR 

$R5 * ACLA10 



001650 

06F2 

U3C0 

FF 6F 



LNJ 

$65 * 1DCHK1 



001651 

06F4 

9BC0 

0020 



LA6 

$B1,PT EXSY 



001652 

06F 6 

9FC0 

00 IE 



ST 6 

$61,PTEX5A+1 



00lo53 

06Fb 

0F81 

0016 



6 

PTEXS 



00 io54 





* 





001653 





* pqll/select/transmit data subroutine 


001656 





* 





001657 


06 FA 



TTEXS1 

EjU 

$ 



00165b 

06FA 

9680 

0702 



LAb 

$Blt<TTfcXS2 



001659 

06K 

9FC0 

0018 



STB 

$Bi»PT EXSA*1 

**APR MQOIF1CAT10N TEMP*** 


001660 

ObFL 

9680 

08C3 



LAb 

$bl* <PRTUUT 



001661 

0700 

9FC0 

0065 



STB 

$61,PR I NT 1 + l 



001662 

0702 

C380 

0F64 


ITEXS2 

LNJ 

$64 * <CC6RST 



001663 

0704 

OFOl 

FF FF 



NOP 

$ 



001664 

0706 

6840 

0545 



LOR 

$K6iPQLAOR 



001663 

0708 

6E40 




ADV 

$R6, sX * 40• 



001666 

0709 

E7C0 

0029 



STH 

$R 61 PTLCT A 



001667 

070b 

E670 

0060 



XUR 

$R6,*X*60* 



00166b 

0700 

E7C0 

0026 



STH 

$R6,PTLCTC 



001669 

0 70F 

8F40 

0062 


PTEXS 

SAVE 

SAVfc6,-2*0008* 

SAVE $64 



0711 

0008 








001670 

0712 

C3C0 

1017 



LNJ 

$64 ,CLKECD 

CLEAR UUI INPUT BUFFER 


001671 

0714 

9680 

0722 


PTEXSA 

LAb 

$B1,<PTEXSY 



001672 

0716 

9FC0 

0232 



STB 

$61 * COUNTR +1 



001673 

071b 

E3C0 

ODAO 



LNJ 

$66 , SKCV 



001674 

071A 

OFOl 

FFFF 



NQP 

$ 



001675 

07 1C 

93C0 

0007 



LNJ 

$B1,SPAT A 



001676 

07 1E 

1253 




OC 

. <RTS 

CPU APPRESS 


001677 

07 IF 

0250 




PC 

(CCP2-RTS)*2 

RANGE 


00167b 

0720 

0200 




OC 

X*20G* 

RAM APORtSS 


001679 

0721 

0000 




OC 

0 



001680 

0722 

E3C0 

0096 


PTEXSY 

LNJ 

$66, SRC V 



001681 

0724 

C3C0 

0D6C 



LNJ 

$64 ,MCC6R 



001682 

0726 

1705 




OC 

<RECP 

ADORES* 


001685 

07 2 7 

0296 




OC 

662 

BUFFER RANGE iN BYTES 


001684 

072b 

0040 




OC 

X»4U» 

CCB CONTROL 


001683 

0729 

b3C0 

0920 



LNJ 

$63,SETLCT 



001686 

0726 

072E 




OC 

< P T L C T 



001687 

0 72C 

OF 80 

073E 



6 

<PU TO 



00168b 

072L 

0526 



PTLCT 

OC 

X * 526 * 

LCT 38 


001689 

0 7 2 F 

0027 




PC 

X • 2 7 * 

LCT39 CCP TRANS# PjRS 


001690 

0730 

0206 




OC 

X * 206 1 

LCT 6 


001691 

0731 

0007 




OC 

X 1 7 * 

LCT 7 CCPRECV PTRS 


001692 

0732 

60 ip 



PTLCTB 

OC 

X* 6010* 

LCT 29 DISPLAY ADDRESS 


001693 

07 33 

001C 



PTLCTA 

OC 

X»001C» 

LCT 28 PUL?SEc AODr REPLACES *00* 


001694 

0734 

2030 



PTLCTC 

OC 

X * 2030' 

LCT 61 POLLAOuR FOR IT TEST 


001695 

0735 

0018 



PTLCT E 

OC 

X * 0018• 

LCT 24 RT FLAu 


001696 

0736 

00 l A 



PTLCT F 

OC 

X • 001A * 

RT POLLFLG 


001697 

0737 

0105 




OC 

X • 0105• 

PAUSE 01 SABLE 


00169b 

073b 

0125 




OC 

X * 0125 * 

PAUSE 0I5ABLE 


001699 

0739 

003 A 




OC 

X*003A * 

CLEAR LC1 58 


001700 

07 3 A 

3A37 




OC 

2*3A37 * 

HUT AOOKESS(LcT 58) IN LCT 55 FUR INPUT LCT 


001701 

07 3b 

003F 




OC 

X»003F * 

LCT 63 MODEM FLG 


001702 

073C 

0000 




OC 

0 



001703 

0731) 

0000 




PC 

0 



001704 

0 7 3 E 

89C0 

0032 


POT p 

CM2 

PTNFLG 



001705 

0740 

0981 

0019 



BNE 

PTEXO 



001706 

0742 

E3C0 

0089 



LNJ 

$66,STMT 



001707 

0744 

93C0 

OCDF 



LNJ 

$61,SPA T A 



00170b 

.0746 

11AF 




OC 

<T r$ 



001709 

0747 

0148 




OC 

(RTS-TTS)*2 



001710 

0748 

0500 




OC 

X * 500 * 



001711 

0749 

0000 




OC 

0 



001712 

074 A 

C3C0 

00A8 


OUMMY 

LNJ 

$b4,MCC6 



001713 

074C 

0E74 



MSGBUF 

PC 

<CANNtP 



001714 

0 740 

0000 



MSGRNG 

OC 

0 



001715 

074L 

0040 




OC 

X * 40 * 

OUTPUT CCB CONTROL 


001716 

0 7 4 F 

C3C0 

0928 



LNJ 

$64,CHCT 



001717 

0751 

OF 80 


T 


6 

>*$A 



00171b 

0 752 

4000 




PC 

2*4000* 



001719 

0753 

C3C0 

0C33 


$A 

LNJ 

$64,TESTS 



0017,20 

0755 

OFOl 

FFFF 



NOP 

$ 



001721 

0757 

89C0 

0018 



CM2 

KTPFLG 



001722 

0759 

0980 


r 


6NE 

> + $A 



001723 

075A 

C3C0 

0913 


PTEXD 

LNJ 

$64,CHCTR 



001724 

0 7 5 C 

OF FD 


r 


6 

> + $A 



001725 

0/50 

4000 




OC 

X * 4000• 



001726 

0 7 5 E 

E380 

1469 


$A 

LNJ 

$66,<SRCV 



001727 

0760 

C380 

1370 



LNJ 

$B4,<TESTSK 



001728 

0762 

C3C0 

0834 


PRINT 

LNJ 

$64,iOSS 

CHECK DATA SET STAjUS 


001729 

0764 

7C04 




LOV 

$R7 , = X * 04 * 

EOT 


001730 

0765 

0F80 

08C3 


PRINT1 

6 

<PK1 OUT 



001731 

0767 

8F80 

0772 



RSTR 

<SAVE6,=2*0080* 

$B4 



0769 

0080 








001732 

076A 

0f8i 

01CB 



6 

COUN! 



001733 

076C 

0020 



LTSRNG 

PC 

32 



001734 

0760 

0000 



RTSFLG 

OC 

0 



001735 

076E 

0000 



TTFLG 

OC 

0 



001736 

076F 

0000 



IOSFLG 

OC 

0 



001737 

0770 

0000 



KTPFLG 

DC 

0 



00173b 

0771 

0000 



PTNFLG 

OC 

0 



001739 

0772 

0000 



SAVE6 

RESV 

$AF ,0 



001740 





* 





001741 

0773 

C3C0 

08A1 


TERSP 

LNJ 

$B4,ILCT 

GET LC1 *8 WHICH HAS STA CHAR# 


001742 

0775 

9680 

0785 



LAB 

$61,<RESP 

GO TO THE RESPONSE TABLE 


001743 

0777 

8753 




CL 

-$R3 



001744 

0778 

987D 



$A 

LPR 

$K1,$B1•+$K3 

GET RESPONSE 


001745 

0 779 

9955 




CMR 

$R1,=$K5 

COMPARE WITH RECD ONE 


001746 

077A 

0900 


T 


BE 

>*$b 



001747 

0776 

9970 

0000 



CMR 

$R l, = 0 



001748 

0770 

Q9FB 




BNE 

>-$A 


(M 

001749 

out 

9680 

0780 


$6 

LAB 

$61,<M8GTb 


m ,, 

001750 

0780 

BCB1 




L06 

$B3,$B1•$R3 



001751 

0781 

C3C0 

0F63 



LNJ 

$B4,T YPEC 

PRINT IT 


001752 

0783 

0F81 

0162 



B 

COUNT 





TITLE TCSC1«• REV b» TERMINbL TEST 


PAGE 33 


001753 





* 




001754 





* RESPONSE TABLE 


001755 

0765 

0600 



RESP 

OC 

X»0600» 

AC< 

001756 

0766 

1500 




PC 

X* 1500* 

NA< 

001757 

0 76 7 

6000 




PC 

X•6000 * 

NOT AVAILABLE 

00175b 

0788 

6E00 




PC 

X•6EQ0• 

PAGE OVERFLOW 

001759 

0789 

6F00 




PC 

X•6F 00 * 

BUSY 

001760 

076 A 

0400 




OC 

X•0400 * 

QU1ESCENI 

001761 

0766 

0000 




PC 

X'O* 


001762 

0 760 

0000 




OC 

X*0» 


001763 





# 




001764 





* MESSEGE TAbLE 


001765 

0760 

0780 



MSGTB 

PC 

<MSGTB 


001766 

0786 

0795 




OC 

< ACR 


001767 

07 8 F 

079C 




OC 

<NAr 


001 768 

0790 

07A3 




PC 

<NA 


001769 

0791 

07AF 




OC 

<PGOF 


001770 

0792 

07bA 




OC 

<BUSY 


001771 

0793 

07C 2 




PC 

<OSI 


001772 

0794 

0700 




OC 

<NOKESP 


001773 





* 




001774 

0795 

4143 

4b20 

5245 

ACK 

TEXT 

•ACK RECEIVED** 



0796 

4345 

4956 

4544 







2400 







001775 

0 790 

4E41 

4B 20 

5245 

NAK 

TEXT 

•NAK KECElVEPi* 



079F 

4345 

4956 

4544 







2400 







001776 

07 A3 

4445 

5649 

4345 

NA 

TEXT 

•OEVICE IS NOT AVAILABLE** 


07A6 

2049 

5320 

4t4F 







5420 

4156 

4149 







4C41 

424C 

4524 





001777 

07 AF 

5041 

4745 

204F 

PGOF 

TEXT 

•PAGE OVERFLOW OCCUREPS* 


07B2 

5645 

5246 

4C4F 







5720 

4F43 

4355 







5245 

4424 






001776 

07bA 

4445 

5649 

4345 

BUSY 

TEXT 

•OEVlCE IS BUSY*' 



0 7BP 

2049 

5320 

4255 







5359 

2400 






001779 

07C2 

5155 

4945 

5343 

QST 

TEXT 

•QUIESCENT MESSAGE 

RECEIVEPS * 


0 7C5 

454E 

5420 

4045 







5353 

4147 

4520 







5245 

4345 

4956 







4544 

2400 






001 780 

0700 

4E4F 

2052 

4553 

NQRESP 

TEXT 

• NO RESPONSE -iECElVEuS* 


0703 

504F 

4E53 

4520 







5245 

4345 

4956 







<♦544 

2400 








TITLE TCSCl* *REV B 
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00X781 

oox 782 

001783 

001784 

001783 

001786 

001787 

001788 

001789 

001790 

001791 

001792 

001793 

001794 

001793 

001796 

001797 

001798 

001799 

001800 

001801 

001602 

001603 

001804 

001803 

001606 

001607 

001606 

001609 

001610 

001611 

001612 

001613 

001614 

001618 

001616 

001617 

001616 

001619 

001620 

001621 

001622 

001623 

001624 

001623 

001626 

001827 

00182b 

001629 

001630 

001631 

001632 

001633 

001634 

001633 

001636 

001637 

001638 

001639 

001640 

001641 

001842 

001643 

001644 

001643 

001846 

001647 

001646 

001649 

001830 

001631 

001652 

001653 

001654 

001635 

001856 

001657 

001658 

001659 

001860 

001661 

001662 

001663 

001664 

001665 

00 1 ci66 

001867 
001668 
001869 
001670 
001671 
001672 
001673 
001674 
001675 
001676 
OQ 167 7 


******************** 

* 

* TRANSMIT A CHARACTER STRING TO A TERMINAL 

* 

* PROGRAM WILL ASK FOR STRING TO TRANSMIT 

* 

******************** 

INPUT THE ID 


07DB 

b3C0 

05CC 


TTEX 

LNJ 

SB3#INID 

0 7DD 

DF40 

ODAC 



STR 

$R5*ACLAID 

07DF 

89C0 

046D 



CMZ 

SYNFLG 

07E1 

0900 


T 


bE 

>*$A 

07E2 

D3C0 

FE7F 



LNJ 

$65 «IDCHK1 

07E4 

0F61 

FF15 



b 

TTEXSl 

07E6 

D3C0 

FE73 


$A 

LNJ 

$B5 * 1DCHK 

0 718 

C3C0 

0193 


TTEXA 

LNJ 

$B4,M6R 

07EA 

9680 

0936 



LAB 

$B1*<C0UNT 

07LC 

9FC0 

005D 



STB 

$61, TTEXD+1 

0 7Et 

9840 

FD3F 



LOR 

$R1,LCEXIR 

07 FO 

9F40 

001E 



STR 

$K1* TT EXR 

07F2 

9B80 

080C 



LAB 

$B1,< T TEM 

07F4 

9FC0 

0154 


* 

STB 

$B1iCOUNTRY 1 


07F6 



TTEXAC 

EUU 

$ 

07F6 

9870 

00C1 



LDR 

SRItsX'Ci* 

07F8 

97C0 

0026 


ft 

STH 

$R1, TTLCTC 

07FA 

9840 

01A4 



LDR 

$R1,LCTBKB 

07FC 

9F40 

0020 



STR 

$R1*TTLCTA 

07FE 

9840 

03A5 



LDR 

$R1,LK6CFA 

0800 

9 A70 

0022 



ADD 

$R1♦sX 1 22 * 

0602 

9F40 

001B 



STR 

$RlfTTLCTB 

0804 

E3C0 

0CC7 


TTOD 

LNJ 

$66,STMT 

0806 

93C0 

OC ID 



LNJ 

SBUSDATA 

0606 

11 IB 




DC 

<TT A 

0809 

0060 




DC 

(RTA-TTA)*2 

080A 

0400 




DC 

X 1 400• 

060b 

0000 




DC 

0 

080C 

C3C0 

0CE6 


T T EM 

LNJ 

$B4 «IMCCB 

OBOE 

0E74 



TTEXM 

DC 

<CANNED 

060F 

0000 



TTEXR 

RESV 

i,o 

0610 

0040 




DC 

X * 40 * 

0611 

B3C0 

0845 



LNJ 

$B3,SETLCT 

0613 

0815 




DC 

<TTLCT 

0814 

0F6D 




b 

> T T bXB1 

0815 

0426 



TTLCT 

DC 

X' 426 1 

0616 

0406 




DC 

X * 406 * 

0617 

0125 




DC 

X«125* 

0618 

0007 




DC 

X • 7 • 

0619 

1E27 




DC 

X»1E27» 

081A 

0105 




DC 

X * 105 1 

081b 

0009 




DC 

X 1 009 * 

06 1C 

OOOA 




DC 

X * 00A * 

061D 

0000 



TTLCTA 

RESV 

1*0 

06 1E 

0000 



TTLCTB 

RESV 

1*0 

06 IF 

014 



TTLCTC 

DC 

2 * C114 • 

0b20 

0000 




DC 

0 


LCT 

SET 


20 

UP 


THE BAUD Rate 


SET UP THELCT 


RAM ADDRESS 


XMIT CCP POINTER(LOC TTAO) 

LCT 9 
LCT 10 
BAUD RATE 
CHAR.CONFIG# 

LCT 20 DATA StT CONTROL 
END OF TABLE 


* TO LOAD LR4 WITH LINE SPEED bY RECEIVE CHANNEL 

* 


0821 

6840 

062D 

TTEXB1 

LDR 

$R3*CHAN 

0823 

0F01 

FFFF 


NOP 

$ 

0625 

C3C0 

0848 


LNJ 

$64.CHCIR 

0627 

0F82 



B 

>T TEXC 

062b 

4000 



DC 

Z • 4000 * 

0829 

9840 

0623 

TTEXC 

LDR 

$Ri,TEST 

0626 

9970 

454C 


CMR 

$R1*=A*EL» 

0620 

0901 

FCAb 


BE 

elexi 

062F 

C3C0 

065 7 

£ 

LNJ 

$B4,TESTS 

0831 

C3C0 

0765 


LNJ 

$64,1DSS 


0833 


TTEXE 

EuU 

$ 

0833 

9840 

0101 


LDR 

$R1,LFLAG 

0835 

9570 

4000 


AND 

$R1, = X * 4000 * 

0837 

1901 

0005 


bEZ 

$R1,LMCHK 

0639 

BB80 

0E39 


LAB 

$B3,<EM5 

063b 

C3C0 

0EA9 


LNJ 

$B4,TYPEC 

063 D 

69C0 

FDCF 

LMCHK 

CMZ 

L A F L G 

083F 

0961 

FDAF 


6NE 

LMEND 


CHECK DATA SET STATUS 


CHECK IF TEST IS LA 

BNL LMtND 

***** 

* 

* TIMEOUT TO ALLOW CR/LF TIME FOR PRINTER DEVICES SUCH AS SARA 


0841 

89C0 

040E 

***** 

FLGCHK 

CMZ 

PTRFLG 

0843 

0901 

0005 


BE 

TTEXD 

0845 

9870 

02 FO 


LDR 

$R1,=X»02F0* 

064 7 

93C0 

0522 


LNJ 

$B1* TMO 

0849 

OF 60 

0936 

TTEXD 

* 

* 

6 

<COUNT 

* 


\ 


,f "\ 

.p# 
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001876 




/ 


001679 




******************** 

OOloSO 




* 


OOIbbl 




* RECEIVE A 

CHARACTER stri 

001 b8<; 




* 


001883 




* CONSOLE WILL DISPLAY STR 

001584 




* 


00158b 




******************** 

001586 

084tJ 

B3C0 

055C 

RTEX LNJ 

SB3,1NID 

001687 

064D 

OF 40 

0D3C 

STR 

$R5 *ACLAID 

Ou1686 

084F 

D3C0 

FEOA 

LNJ 

Sbb * IDCHK 

001689 




* 


001690 

0651 

9840 

05F b 

LDR 

SRI*TEST 

001891 

0853 

9970 

4C4B 

CMR 

$R1,=A*LK* 

001692 

08bb 

0901 

0019 

BE 

RTEXAA 

001693 

0857 

C3C0 

0124 

RTEXA LNJ 

SB4 *MBR 

001894 

0859 

9B60 

086F 

LAB 

SB!,<RTEXAA 

00189b 

065b 

9FC0 

FFEE 

sib 

SB 1 * T1EXD*1 

001696 

06bu 

9B80 

0EB7 

LAB 

$B1,<GOMSG 

001697 

065F 

9FC0 

FFAE 

STB 

$61 * TTEXM 

001896 

0861 

9870 

OOOA 

LDR 

$ri*~io 

001899 

0863 

9F40 

F F AB 

STR 

SR 1 * TT EXR 

001900 

0665 

9870 

OOOD 

LDR 

SRI*=X*OD* 

001901 

0867 

97C0 

0041 

STH 

$R1 * RTLCTE 

001902 

0869 

9870 

0000 

LDR 

$R1 , = 0 

001903 

0866 

97C0 

0U3E 

STH 

$R1 * RTLCTF 

001904 

0b6D 

OF 61 

FF 88 

b 

TTEXAC 

00190b 




* 


001906 

08 6 F 

OF 01 

FFFF 

RTEXAA NOP 

$ 

001907 

0871 

C3C0 

06F2 

LNJ 

SB4«CCBRST 

001906 

0673 

OF 0 1 

FFFF 

NOP 

$ 

001909 

0875 

E3C0 

0C43 

SKIP LNJ 

$B6,SRCV 

001910 

0877 

93C0 

OBAC 

LNJ 

$bl*SDATA 

001911 

0679 

114b 


DC 

<RT A 

001912 

067A 

00C8 


DC 

(TT S-RT A)*2 

001913 

067b 

0200 


DC 

X*2U_0* 

001914 

087C 

0000 


DC 

0 

00191b 




* 


001916 

087o 

C3C0 

0C63 

LNJ . 

SB4 *MCCBR 

00191 7 

08 7 F 

17D5 


DC 

<RECD 

001916 

0880 

0262 


BUFFER RESV 

1*642 

001919 

0861 

0040 


DC 

X • 40 • 

001920 




* 


001921 




* 


001922 

0882 

9840 

011 c 

LDR 

SRI*LCTBRb 

001923 

0864 

9 F 40 

0020 

STR 

$R1,RTLCTA 

001924 

0866 

9840 

031D 

LDR 

SRI*LR6CFA 

00192b 

0886 

9 A70 

0022 

ADD 

$R1 * = X * 22 * 

001926 

088 A 

9F4Q 

ooib 

SIR 

$R1*RT LCTb 

001927 

088C 

9840 

0317 

LDR 

SRI,LR6CFA 

001926 

086E 

1EG2 


ADV 

SR 1 * = 2 

001929 

068F 

9F40 

0017 

STR 

SRl*RTLCTC 

001930 

0891 

9840 

010D 

LDR 

$R1,LCTbRB 

001931 

0693 

9570 

FFDF 

AND 

SRI,=2*FFDF* 

001932 

089b 

9F40 

0012 

STR 

SRI*R TLCTD 

001933 

0697 

OF 01 

FFFF 

NOP 

S 

001934 

0899 

UFO 1 

FFFF 

NOP 

S 

00193b 

069b 

B3C0 

07B1 

LNJ 

$B3 * LCTRCV 

001936 

0890 

089F 


DC 

<RTLCT 

001937 

089E 

OF 8E 


b 

>R TEXb 

001938 




* 


001939 

089F 

0226 


RTLCT DC 

X * 226 * 

001940 

06 AO 

0206 


DC 

X * 206• 

001941 

08A1 

0125 


DC 

X* 125* 

001942 

08A2 

0007 


DC 

X * 0 7 * 

001943 

08 A3 

7 F 2 7 


DC 

X * 7 F 2 7 • 

001944 

08 A4 

0105 


DC 

X*105* 

001945 

08A5 

0000 


RTLCT A DC 

0 

001946 

06 Ab 

0000 


KTLCTb DC 

0 

001947 

08A7 

0000 


RTLCTC DC 

0 

001946 

06A8 

0000 


RTLCTD DC 

0 

001949 

O 8 A 9 

08AA 

0D1C 


RTLCTE DC 

X • OD1C• 

001950 

001E 


RTLCTF DC 

X* 001E * 

001951 

06AB 

0000 


DC 

0 

001952 

08AC 

B840 

05A2 

RTEXB LDR 

$R3,CHAN 

001953 

06AE 

0F01 

FFFF 

NUP 

S 

001954 

0660 

C3C0 

07BD 

LNJ 

$B4,CHCTR 

00195b 

0862 

OF 82 


b 

>RTEXD 

001956 

0863 

4000 


DC 

2*4000* 

001957 

0864 

BF40 

0CD7 

RTEXD STR 

SR3,INHRTC 

001956 

0866 

C3C0 

0AC6 

LNJ 

SB4 * TESTSR 

001959 

08b8 

E840 

0594 

RTEXE LDR 

SR6«TEST 

001960 

08BA 

E970 

4C54 

CMR 

$R6, = A * LT * 

001961 

08BC 

0901 

FDC9 

bE 

LTEXD 

00196*: 




* 


001963 




* 


001964 

08BE 

7C0D 


LDV 

$R7 *-X * OD * 

001965 

08BF 

E970 

4C4B 

CMR 

$R6,sA* LK• 
>PRTOUT 

001966 

08C1 

0982 


BNE 

001967 

06C2 

7C04 


LDV 

$R7 * = X * 04 * 

001968 

06C3 

C3C0 

0019 

PRTOUT LNJ 

$B4,CNTRCV 

001969 

06CS 

89C0 

FEA8 

CM2 

TTFLG 

001970 

06C7 

0981 

feab 

bNE 

TERSP 

001971 

08C9 

A840 

0587 

LDR 

SR2,PASSES 

001972 

06CB 

A970 

0001 

CMR 

$R2*=1 

001973 

08CD 

0301 

OOOD 

BG 

RTEXC 

001974 

08CF 

C3CQ 

0E4C 

LNJ 

Sb4*HEXASC 

001975 

08D1 

0E6E 


DC 

<RCVRNB 

001976 

08D2 

17CB 


DC 

< INCNT 

001977 

08D3 

BB60 

17C8 

LAB 

$B3 * <IN 

001976 

08D5 

C3C0 

OEOF 

LNJ 

$B4 * T YPEC 

001979 

08D7 

BB80 

17D5 

LAB 

Sb3 * <RECD 

001980 

08D9 

93C0 

0D9A 

LNJ 

SB1*C0NPR1 

001981 

08Db 

OF 80 

0936 

RTEXC b 

<COUNT 

001982 




* 


001983 




* 


001984 




* COUNT NUMBER OF BYTES IN 

001985 




* SETS RANGE 

IN WORDS (Rl A 

001986 




* 


001987 




* 


001986 

08DD 

BB80 

17D5 

CNTRCV LAB 

SB3,<RECD 

001989 

Q6DF 

8751 


CL 

= $R 1 

001990 

08E0 

8755 


CL 

= $Rb 


FROM A TERMINAL 


INPUT THE ID 


INCASE MUDIFItD BY LK TEST 
CL LK IE5T FLmG 


RANGE IS MODIFIED IF ASYNC TERMINAL 


X • F F 1C * FOR LX TEST 
LCT 30 LK TEST FLAG 


DISABLE KTC 


ALLOWS SEARCH FOR c/R 


COUNT received bytes 

IF TT BE I TER. RESPONSE 


5ET UP RECD PRINT LINE 


"Recd; x characters « to console 

PRINT RCVD DATA EVEN ON. A TTY-R 


RECEIVE BUFFER (UP TO FIRST «0D* BYTE) 


WORD COUNTER 
BYTE COUNTER 
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00X991 

08E1 

9970 

014C 


DSPb 

CMR 

$Ri»=332 

TOTAL RANGE 

00 1992 

0bE3 

0901 

004b 



bE 

0SPH2 


001993 

06E3 

A813 




LOR 

3>K2 15>B3 • SR 1 


001994 

06E6 

A570 

FFOO 



AND 

*R2,=Z»FF0Q» 


001995 

08E6 

7006 




SOL 

$R7 *8 


001996 

06E9 

A957 




CMR 

$K2♦ = $R7 

CHECK FOR CK OR EOT IN LEFT HALF WORD 

001997 

06EA 

0933 




BE 

>DSPG 

001996 

08 Eli 

aAD5 




INC 

= $R3 


001999 

08EC 

89C0 

FD20 



C MZ 

LAFLCj 


002000 

06Et 

0961 

000b 



BNE 

DSPC 


002001 

GttFO 

A970 

2400 



CMR 

$R2,=Z»2400» 

CHECK FOR $ SIGN 

002002 

OaF 2 

0900 


I 


BE 

> + $A 

002U03 

08T3 

A970 

3C00 



CMR 

$R2 *-Z •5C00 9 

CHECK FOR \ SIGN 

002004 

06F5 

0985 



SA 

BNE 

>DSPC 

002003 

06F6 

A813 




LOR 

$R2 * $B3 »$R1 


002006 

08 F 7 

AA70 

8000 



add 

$R2♦ = Z * 6000 * 

CONCEAL $ FROM LIBRARY PKINf ROUTINE 

002007 

00200a 

06F9 

AF 13 



* 

STR 

$R2♦SB3•$R1 


002009 

08 Fa 

A813 



OSPC 

LDR 

$R2*SB3.$Ri 


002010 

08 Fd 

A570 

OOFF 


AND 

$R2*=X»FF* 

CHECK FOR $ AnD/OR CR IN RIGHT HALF 

002011 

oaFO 

69C0 

FDOF 



CMZ 

LAPLG 

002012 

08 FF 

0960 


T 


BNE 

>+$c 


002013 

0900 

A970 

0024 



CMR 

$R2 * =X•24• 


002014 

0902 

0914 




BE 

>DSPE 


002013 

0903 

A970 

005C 



CMR 

*R2t=X*5C* 

CHECK FOR \ bIGN 

002016 

0905 

0911 




BE 

>D3PE 


002017 

0906 

7046 



sc 

SOR 

$R 7 * 8 


002O16 

0907 

A957 




CMR 

$R2 * =$R7 


002019 

090a 

0992 




BNE 

>OSPD 


002020 

0909 

89C0 

FD03 



CMZ 

LAFlG 


002o2i 

090b 

0980 


1 


BNE 

>♦$» 


002022 

090C 

A970 

OOOD 



CMR 

$R2♦ = X * OD* 


002023 

090L 

0970 


T 


' BE 



002024 

002023 

090F 

89C0 

FE5D 



CMZ 

KTSFLG 


0911 

0917 




BE 

>DSPH 


002026 

0912 

A613 



$b 

LDR 

$R2»Sb3 # $Rl 


002027 

0913 

A570 

FFOO 



AND 

$R2*sZ»FF00* 

**TEMP** 

002028 

0915 

OF 80 


7 


B 

> + $A 


002029 

0916 

A813 



OSPE 

LDR 

SK2,*B3.$R1 


002030 

0917 

AA7 0 

0080 



ADD 

SR2*=X»80* 

CONCEAL 3> FROM LIBRARY AND \ FROM MDC 

002031 

0919 

AF13 




STR 

$R2»SB3.$R1 

002032 

091A 

8 API 



DSPO 

INC 

s$Rl 


002O33 

091b 

8AD5 




INC 

= $R5 


002034 

09 1C 

0FC5 




a 

>DSPB 

LOOK A1 NEXT *ORD 

002033 

0910 

69C0 

FCEF 


DSPb 

CMZ 

LAFlG 


002036 

09 IF 

0960 


T 


BNE 

>♦$0 


002037 

0920 

A970 

0000 



CMR 

$R2«=X*0D00» 


002036 

0922 

0970 


T 


BE 

>♦$0 


002039 

0923 

69C0 

FE49 



CMZ 

RTSFLG 


002040 

0923 

0903 




BE 

>DSPH 


002U41 

0926 

8752 



SB 

CL 

= $R2 

**TEMP** 

002042 

0927 

AF 13 



$A 

STR 

SK2•SB3•$R1 

**TEMP** 

002043 

0926 

6A01 



OSPH 

INC 

= $R I 


002044 

0929 

6 AD5 




INC 

= $R5 

PRINT KECD DA 1A» 80 BYTESR5 PER LINE-: 

002043 

092 A 

UF40 

0543 


0SPH1 

STR 

$K5 »KCVRNB 

RECElVt RANGE IN BYTES 

002046 

092C 

9F40 

0542 



STR 

SRI,RCVRNG 

SAVE RCV RANGt IN WORDS 

002047 

002046 

092t 

6364 



# 

JMP 

*B4 


002049 





* IF 

RAN^jE 

EXHAUST PUf 0 IN LAS f 

WORD FOR CUNPRT 

002050 

092 F 

6752 



0SPH2 

CL 

= $K2 


002051 

0930 

AF11 




STR 

$R2 »$B1 • 3>k 1 


002052 

0931 

0F81 

FFF8 



B 

DSPhl 





,-r ■> 

'' ; i.y v 





TITLE TCSC1*»REV b* TERMINtJL TEST 
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002053 

00205A 

002055 

002056 

002057 

002056 

002059 

002060 

002061 

002062 



002063 


0933 

00206A 

002065 

002066 

0933 

0F81 FCF1 

002067 

002068 

0935 

0000 


/ 

******************** 

* transmit operator specified message and wait FOR 

* 

* VIP CONTROLLER TO RESPOND* VERIFY TRANSMITTED 

* 


* MESSAGE AGAINST RECEIVED MESSAGE 

* 


TV 

******************** 

TCEX EQU $ 

EXECUTt THE TEST 

* 

b 

NOTiMP 

PRINT "NOT IMPLEMENTED" MESSAGE 

* 

LFLAG 

* 

RES V 

1*0 




title tCSCi,* 

'REV b 1 

» TtRMINBL 

TLbT 
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00206V 





/ 





00207U 





* 





002071 

0936 

6AC0 

051C 


COUNT 

INC 

PCNT 

BUMP COUNTER 


0020 72 

0936 

69C0 

OC52 



CM2 

NOSTOP 


if 

002073 

093A 

096 A 




BNE 

>COUNT S 


1 J 

00207V 

093b 

9840 

0517 



LOR 

$R1 * PCNT 



002U75 

0930 

A840 

0513 



LOR 

$R2,PASSES 



002076 

093F 

9952 




CMR 

$R 1 * = $R2 



002077 

0940 

0901 

0013 



BE 

COUNTA 



002076 

0942 

1001 




CMV 

$Ri*-i 



002079 

0943 

0985 




BNE 

>COUNTR 



00208O 

0944 

9840 

0506 


COUNTS 

LOR 

$Rl fMLSCa 



002081 

0946 

9970 

4300 



CMR 

$K1*=X»4300» 



002062 

0948 

0F80 

04 At 


COUNTR 

b 

<EXLC 



002083 

094A 

9840 

0502 



LOR 

SRI*TEST 



002084 

094C 

9970 

4C4D 



CMR 

$R1*=X*4C4D* 

LM? 


002086 

094t 

0901 

0460 



bE 

REMLP 



002086 

0950 

9970 

4C52 



CMR 

$R1 * = X * 4C52 * 

LR? 


002087 

0952 

0901 

045C 



6b 

REMLP 



002086 


0954 



COUNTA 

tGU 

S 



002089 

0954 

bBBO 

0E3F 


C0NTA1 

LAb 

SB3 * <TCUMP 

HERE IF PASS CTR EXH 


002090 

0956 

C3C0 

008b 



LNJ 

$64*IYPEC 



002091 

0956 

5680 

1629 



LAB 

$63 * <EM6 



002092 

095 A 

C3C0 

0076 



LNJ 

$54 * T YPE 



002093 

095C 

A 3 CO 

0C96 



LNJ 

SB2 * PKBCHA 



002094 

095t 

bB80 

1660 


COUNTb 

LAB 

$63 * <CRLF 



002096 

0960 

C3C0 

0D75 



LNJ 

$64*TYPE 



002096 






CALL 

ZV$TH.ZV$TD*PCNT 




0962 

FBCO 

0003 








0964 

0380 

0000 

X 







0966 

OF 80 









0967 

0E53 








002097 

0968 

5680 

1639 



LAB 

$B3 * <PSS 



002098 

096A 

C3C0 

0066 



LNJ 

$64*TYPE 



002099 






CALL 

ZV$TH.ZV$TD*ERCT 




096C 

F6C0 

0003 








096b 

0360 

0000 

X 







0970 

0F80 









0971 

Ot57 








00210u 

0972 

6680 

1662 



LAB 

$B3*<ERS 



002101 

0974 

C3C0 

0061 



LNJ 

$64*TYPE 



002102 

0976 

6680 

1660 



LAb 

$63 * <CRLF 



002103 

0976 

C3C0 

0D5D 



LNJ 

$B4 * T YPE 



002104 

09 7 A 

OF 81 

F795 



b 

NEXT 



002106 





* 





002106 





* 





002107 





* 

SUBROUTINES 



002108 





* 





002109 





# 





002110 





# 





002111 





* 

MANIPULATION OF BAUP SATE 

FOR LCT TABLE 


002112 





* 





002113 

0970 

8F40 

OBCD 


MBR 

SAVE 

SAV1 * =2 * FFFF * 




097t 

FFFF 








002114 

097F 

9640 

OCOA 



LOR 

$R1*ACLA1D 

LOAD ID FOUND 


002116 

0981 

9970 

3118 



CMR 

$Ri*sZ*3118* 


4 

002116 

0983 

0907 




BE 

>MBRA 



002117 

0964 

9970 

3110 



CMR 

$R1*52*3110* 



002116 

0986 

0904 




BE 

>mbka 



002119 





* 





002120 





* HERE IF 

ULD ADAPTER 



002121 





* 





002122 

096 7 

AbBO 

09C7 



LAB 

$62 *<XRQLD 

LOAD TABLE ADORESS 


002123 

0969 

OF 8 3 




B 

>MBKB 



002124 





* 





002126 





* 

HERE IF 

NEW ADAPTER 



002126 





# 





002127 

098 A 

A680 

0964 


MBRA 

LAB 

$62 * <XRNEW 



002128 





# 





002129 

0960 

6840 

02DC 


MBRB 

LOR 

$R3*bPRATE 

GET BAUD RATE 


002130 

098b 

8751 




CL 

-SRI 

INDEX REGISTER 


002131 

098F 

9680 

09A0 



LAB 

$B1*<XRALL 

LOAD TABLE ADDRESS 


002132 

0991 

A811 



MBRC 

LOR 

$R2*$B1.$R1 

LOAD A BAUD KaTE 


002133 

0992 

A953 




CMR 

$R2*s$R3 

MATCH? 


002134 

0993 

0903 




BE 

>MBKD 

YES 


002136 

0994 

17FD 




6 INC 

$R1 * >M6RC 

NO-GET ANOTHER 


002136 

0995 

0000 




HLT 




002137 





# 





002138 

0996 

C812 



MBRP 

LOR 

$R4 * $B2•$R1 

LOAD CORRECT VALUE 


002139 

0997 

4008 




SOL 

$R4 * 8 



002140 

0996 

4634 




AOV 

$R4,=52 



002141 

0999 

CF 40 

0005 



STR 

$R4,LCTBRB 



002142 

099b 

8FC0 

QBAE 



RSTR 

SAV1 * =Z • FFFF• 




0990 

FFFF 








002143 

099b 

8364 




JMP 

$B4 

RETURN TO CALLER 


002144 





* 





002146 

) 1 L. A 

Q99F 

0000 



LCTbRB 

RLSV 

1*0 

LCT TABLt BAUD RATES FOR LR4 


VKJ C i HO 

002147 





# 





002146 





# 

XRLF TABLE FOR BAUP RATE 

VS. BITS TO GO IN LR4 


002149 





* 





002150 

09A0 

0032 



XRALL 

PC 

50 



002151 

09A1 

0046 




DC 

75 



002152 

09A2 

006b 




PC 

no 



002153 

09A3 

0066 




PC 

134 



002154 

09A4 

0096 




PC 

150 



002155 

09A5 

00C8 




PC 

200 



002156 

09A6 

012C 




PC 

300 



002157 

09A7 

0258 




PC 

600 



002156 

09A6 

0364 




PC 

900 



002159 

09A9 

041A 




PC 

1050 



002160 

09 AA 

0460 




PC 

1200 



002161 

09 Ab 

0708 




PC 

1800 



002162 

09A0 

07D0 




PC 

2000 



002163 

09A0 

0960 




PC 

2400 



002164 

09 At 

QtlQ 




PC 

3600 



002165 

09AF 

12C0 




PC 

4800 


. 

002166 

0950 

1C20 




DC 

7200 


a m 

002167 

0951 

2580 




PC 

9600 


« 

002168 

0952 

4600 




PC 

19200 


iL y 

002169 

0963 

0000 




PC 

0 

END OF TABLE 


002170 





* 





002171 





* 

XRtF TABLE FOR NEW ACLA 





TITLE TCSCl♦* RtV b 


TfcKMINbL TEM 


PACE 39 


002172 






# 



002173 

09B4 

0000 




XRNEW 

DC 

0 

002174 

09B5 

0001 





DC 

1 

002175 

09bb 

0002 





DC 

2 

002176 

09b7 

0003 





DC 

3 

002177 

09b6 

0004 





DC 

4 

002176 

09B9 

0005 





DC 

5 

002179 

09bA 

0006 





DC 

6 

002180 

09bb 

0007 





DC 

7 

002181 

09BC 

FFFF 





DC 

z»fffp* 

002182 

0960 

0008 





DC 

6 

002183 

096t 

0009 





DC 

9 

002184 

09 6F 

OOOA 





DC 

10 

002186 

09C0 

ooob 





DC 

11 

002186 

09C1 

000c 





DC 

12 

002187 

09C2 

FFFF 





DC 

Z • F F F F • 

002186 

09C3 

OOOD 





DC 

13 

002189 

09C4 

FFFF 





DC 

Z'FFFF • 

002190 

09C5 

OOOL 





DC 

14 

002191 

09C6 

OOOF 





DC 

15 

002192 






* 



002193 






# 

XKEF 

TABLE FOR OLD ACLA 

002194 






* 



002196 

09C7 

0001 




XKOLD 

DC 

1 

00219b 

09Cb 

0002 





DC 

2 

002197 

09C9 

0003 





DC 

3 

002198 

09CA 

0004 





DC 

4 

002199 

09Cb 

0005 





DC 

5 

002200 

09CC 

FFFF 





DC 

Z * F F F M 

002201 

09C0 

0006 





DC 

6 

002202 

09Ct 

0007 





DC 

7 

002203 

09CF 

0008 





DC 

6 

002204 

0900 

FFFF 





DC 

Z’FFFF* 

002206 

0901 

0009 





DC 

9 

002206 

0902 

OOOA 





DC 

10 

002207 

0903 

FFFF 





DC 

Z* FFF F * 

002208 

0904 

OOOB 





DC 

II 

002209 

0905 

OOOC 





DC 

12 

002210 

0906 

OOOD 





DC 

13 

002211 

0907 

OOOE 





DC 

14 

0022 12 

0906 

OOOF 





DC 

15 

002213 






* 



002214 






# 



002216 






* 



002216 






* DISPLAY CUKRLNT PARAHLTLRL3S 

002217 






# 



002216 

0909 

6660 

09DE 



DPARM1 

LAB 

*B3,<0NCE 

002219 

09Dd 

C3C0 

0009 




LNJ 

3>b4,I YPEC 

002220 

0900 

0F8B 





B 

>dpakm 

002221 

090b 

4445 

4641 

554C 


ONCE 

TLXT 

•DEFAULT PAKANlLTERS; % 


09EI 

5420 

5041 

5241 







4D45 

5445 

5253 







3 A24 







002^22 

09L6 

bb80 

0C50 



DPAKM 

LAo 

S>B3 t<TMNT YP 

002223 

09 E A 

C3C0 

QCF A 




LNJ 

<bB4,TYPEC 

002224 

09 EL 

bbso 

0C59 




LAb 

$63 »<TMNASC 

002226 

09 Lb 

C3CQ 

QCE7 




LNJ 

$B4»TYPE 

002^26 

OVFO 

89C0 

025C 




CMZ 

SYNFLC 

002227 

09F2 

0960 



T 


BNL 

> + $A • 

002226 

O9F 3 

bbbO 

0C63 




LAb 

$B3i<BDRTQ 

002229 

09F 5 

C3CQ 

OCEF 




LNJ 

*B4,TYPtC 

002230 







CALL 

ZV$TH.ZV$TD»BORATE 


09F 7 

FBCO 

0003 







09F9 

0380 

0000 


X 





09FB 

OF 80 








09 FC 

0C69 







002^31 

09P0 

6680 

0A45 




LAb 

$B3 »<CHASIZ 

002232 

09 FF 

C3C0 

0CL5 




LNJ 

$641 1 YPLC 

002233 







CALL 

ZV$TH.ZV$TD,C4SIZE 


OAO1 

FBCO 

0003 







0A03 

0380 

0000 


X 





0A05 

0F8O 








0 A06 

0A4b 







002234 

0 A07 

6B60 

0A4C 




LA6 

$63»<STblT S 

002236 

0A09 

C3C0 

OCDB 




LNJ 

$B4,TYPtC 

002236 







CALL 

ZV$TH.ZV$TD,531TS 


OAOB 

FBCO 

0003 







OAOO 

0360 

0000 


X 





OAOF 

0F60 








0 A 10 

0A52 







002437 

0A11 

6660 

0A53 


* 


LAb 

$B3,<PKTY 

002238 

0A13 

C3C0 

0CD1 




LNJ 

$B4,TYPEC 

002239 

OA15 

6B80 

0A59 




LAb 

$B31<APAKIT 

002240 

0 A17 

C3C0 

0C6E 




LNJ 

$64 « fYPE 

002241 

0 A19 

C3C0 

0CB5 




LNJ 

$64,NEWLIN 

002442 

OAib 

C3C0 

FF60 




LNJ 

$B41HBR 

002243 

0A10 

OF b 1 

F6F2 




6 

NEXT 

002244 






* 



002246 

OA 1F 

bB80 

0A5O 



SA 

LAb 

$B3 » <ADUKS 

002246 

0A21 

C3C0 

0CC3 




LNJ 

$b4 « TYPEC 

002247 







CALL 

ZV$iH.ZV$TD*BJRATE 


0A23 

FBCO 

0003 







0A25 

0380 

0000 


X 





0A2 7 

0F80 








QA26 

0C69 







002246 

0A29 

6880 

0A63 




LAB 

$B3*<M0DL 

002249 

0A2 b 

C3C0 

0CB9 




LNJ 

$BA,TYPEC 

002650 

0A20 

6660 

0A69 




LAB 

$B3t<M0D 

002251 

0a2F 

C360 

16D6 




LNJ 

$64 * <T YPE 

002252 

0A31 

6660 

0A6D 




LAB 

$B3 * <CLQCK 

002653 

OA33 

C3 60 

16E5 




LNJ 

$B4,<|YPEC 

002454 

0A36 

6B60 

0A73 




LAB 

$63»<CLK 

002255 

0m37 

C380 

16D6 




LNJ 

$B4 9 < TYPE 

002256 

0 A3 9 

BB80 

0A77 




LAB 

$B3 $ <DlSP 

002257 

0 A3tJ 

C3C0 

0CA9 




LNJ 

SBAtTYPEC 

002256 

0 A30 

6B60 

0A7D 




lab 

$631 <DPC 

002259 

0 a3F 

C3C0 

0C96 




LNJ 

$B4,TYPE 

002260 

0A41 

C3C0 

0C8D 




LNJ 

$64 *NLWLIN 

002261 

0A43 

0F61 

F6CC 




B 

NEXT 

002464 

0 A46 

4346 

4152 

2053 


CHASIZ 

TLXT 

•char size;;$* 


0A4 6 

495A 

453A 

3A24 





002263 

0A4b 

0006 




CHS1ZE 

RLSV 

1*8 

002264 

0 A4C 

5354 

4F50 

2042 


STB1TS 

TEXT 

•STOP BITS: ; $• 




TITLE TCSC1 * • 

REV b 

TERMlNbL TEST 




002265 

0A4F 

0A52 

4954 

0001 

533A 

3A24 

SBITS 

RLSV 

1*1 

002*66 

0A53 

0 A56 

2020 

4954 

2050 

593A 

4152 

3A24 

PRTY 

TEXT 

* parity::$* 

002467 

0A59 

0A5C 

2020 

2400 

2020 

2045 

APARIT 

TEXT 

• Es* 

002266 

0A5O 

0A60 

5445 

4444 

5240 

523A 

2041 

3A24 

ADDRS 

TEXT 

•TERM AUDR;;$* 

002469 

0A63 

0M66 

2020 

4F44 

2020 

453A 

204D 

3A24 

MODE 

TEXT 

* MODE;; $ • 

002270 

0A69 

0A6C 

2020 

2400 

2020 

2050 

MOD 

TEXT 

♦ Pi* 

002471 

0A60 

0A70 

2020 

4F43 

2020 
4B3 A 

434C 

3A24 

CLOCK 

TEXT 

• clock;:$» 

002272 

0A73 

0A76 

2020 

2400 

2020 

2054 

CLK 

TEXT 

• T $ * 

002273 

0A77 

0A7A 

2044 

5052 

4953 

543A 

502F 

3A24 

DISP 

TEXT 

• DiSP/PRT ?;$ V 

002*74 

002*75 

0A70 

0A8O 

2020 

2400 

2020 

2044 

DPC 

* 

TEXT 

• Di* 
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002*76 
002277 
002276 
002279 
002280 
00228i 
002282 
002288 
002284 
002285 
002286 
002287 
00228b 
002289 
002290 
002291 
002292 
002293 
002294 
002295 
002296 
002297 
002298 
002299 
002 30.0 
002301 
002302 
002303 
002304 
002305 
002306 
002307 
002308 
002309 
002310 
002311 
002312 
002313 
002314 
002315 
002316 
002317 
002818 
002319 
002320 
002321 
002322 
002323 
002324 
002325 
002326 
002327 
002326 
002329 
002830 
004331 
002332 
002333 
002334 
002335 


002336 

002337 

002338 

002839 

002340 

002341 

002342 

002343 

002344 

002345 

002346 

002347 

002346 

002349 

002350 

002351 

002352 


002353 

002354 

002355 

002356 

002357 

002356 

002359 

002360 


* 

# 

* PARAMETER INPUT 

* 


0A81 

1C0A 


1 PAR 

LDV 

$Rl*slO 

RANGE FOR INPuT 

0A82 

A3C0 

0338 


lnj 

$B2 * IASC 

INPUT 1EKMINAu TYPE 

0A84 

9840 

03C2 


LDR 

$R1»7 EMP 

LOAD TYPE INPUT 

0 A8t> 

D840 

03C1 


Lor 

$R5 * T EMP +1 


0A68 

9P40 

01D1 


STR 

$R i i TMNASC+ 1 


0 A8A 

DF40 

0 IDO 


STR 

$R5 * TMNASC + 2 


0A6C 

C3C0 

004b 


LNJ 

$B4«1 PARC 


0A6E 

1C0A 



LDV 

$Ri10 

RANGE FOR INPuT 

0 AbP 

A3C0 

0345 


LNJ 

$B2«1 DEC 

INPUT BAUD RATE 

0A91 

9840 

03B5 


LDR 

SRIfTEMP 

LOAD BAUD RATl INPUT 

0A93 

9F40 

01D5 


STR 

Ski$BDRATE 

STORE IT FOR USE 

0A95 

C3C0 

0042 


LNJ 

SB4*1PARG 


0A97 

1C0A 



LDV 

$R1 ♦ s 10 


0A96 

A3C0 

0322 


LNJ 

$B2 * i ASC 

INPUT CHARACTER SI?E 

0A9A 

A840 

03AC 


LDR 

$R2 »1EMP 

LOAD SIZE INPUT 

0A9C 

AF40 

FFAE 


STR 

SR2,CHS1ZE 

SAVE IT 

0A9E 

C3C0 

0039 


LNJ 

$B4 *1PARG 


0 AAO 

1C0A 



LDV 

JR1 *5=10 


0AA1 

A3C0 

0319 


LNJ 

$B2 * 1 ASC 

INPUT STOP BITS 

0AA3 

A840 

03A3 


LDR 

$R2«TEMP 


0AA5 

AF40 

FF AC 


STR 

SR2»SBITS 

SAEV 17 

0AA7 

C3C0 

0030 


LNJ 

$B4♦I PARC 


0AA9 

1C0A 



LDV 

SR 1♦= 10 


OAAA 

A3C0 

0310 


LNJ 

SB2 * 1ASC 

INPUT PARITY 

OAAC 

A840 

039A 


LDR 

SR2 * T EMP 


OAAE 

2046 



SUR 

*R2,8 


OAAF 

AA70 

2000 


ADD 

$R2 » = X * 2000 * 


OABi 

AF40 

FFA9 


STR 

SR2,APARIT*2 





* CHECK VALIDITY UF PARAMETERS 

INPUT 

0AB3 

A3C0 

OOF 1 

IPARF 

LNJ 

SB2*INTM1 

CHECK TERMINAL TYPE 

0Ab5 

C3CQ 

027D 


LNJ 

iB4 *CBR 

CHECK BAUD RATE 

0AB7 

9840 

FF93 


LDR 

$Ri,CHSUE 


0AB9 

1048 



SUR 

SRI .8 


OABA 

9570 

OOOF 


AND 

$R1*=X*0F* 


OAbC 

9P00 

0A4B 


STR 

$R1,<CHSIZE 



0 Abt 
OABF 
OACO 
0AC1 
0AC2 
0AC3 
0AC4 
0AC5 


1005 
091F 

1006 
0910 

1007 
091b 

1008 
0919 


CMV 

bE 

CMV 

bt 

CMV 

bE 

CMV 

bL 


$RW = X*05* 
> 1PmKA 
*R1*=X»Q6* 
>1PAKA 
$R 1 * = X•0 7 * 
>1PAKA 
$KI * =X * 08 * 
>1 PARA 


0AC6 

BB80 

m 



LAB 

SB3 * <ICR 


0AC8 

C3C0 


IPAKB 

LNJ 

$B4*T YPEC 


OACA 

0F81 

P645 



B 

NEXT 



696C 

6C20 

6C65 

6368 

6761 

6172 

ICR 

TLXT 

•ILLEGAL CHARACTER 

SIZES* 


6163 

7465 

7220 






7369 

7A65 

2400 





0AD8 

9800 

0000 

X 

IPAKG 

LDR 

SR 1 * <ZVSABF 

TEST ACTUAL BYTE FOUND FOR 

OADA 

9970 

ODOO 



CMR 

$Ri* sX * ODOO• 

CR TO TERMINATE LINE ENTRY 

OADC 

0957 




be 

>1PARF 

USE RESIDUAL FIELDS IF CK 

OADD 

8384 




JMP 

5>B4 

OADE 

9840 

FF73 


IPARA 

LDR 

$RI * SB ITS 


OAEO 

1048 




SUK 

$R 1 * 8 


OAEi 

9570 

0003 



AND 

$R1»«X*03* 


0AE3 

9F00 

OA52 



STR 

$R1 * <SBITS 


0AE5 

1D01 




CMV 

$R1 * sX * 0 1• 


0AE6 

092E 




BE 

>IPARC 


0AE7 

1D02 




CMV 

SR I * =X * 02 * 


OAEb 

092C 




BE 

>I PARC 


0AE9 

BB80 

OAEC 



LAB 

$B3 * <I SB 


OAEB 

OFDD 




B 

>1PARB 


OAEC 

696C 

6C65 

6761 

ISb 

TEXT 

•ILLEGAL NUMBER OF 

STOP bITb$» 

OAEF 

6C2G 

6E75 

6D62 






6572 

206F 

6620 






7374 

6F70 

2062 






6974 

7324 







OAFA 

OAFC 


9870 C120 
9F00 1371 


* 

* THIS SOUBRQUTINt CHANGES CONTENTS OF DATA SET CONTROL 

* WORD IN LCT 20 IN SYNCHRONOUS CHANNEL PKQGRAMM 

* WHEN OLCP CLOCK IS NOT USEO 

DTS LOR $K1*=Z*C120* 

STR $R1*<0TS6*1 
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00236 1 

OAFE 

9870 

ClbD 



LDR 

$k i , =Z * oibd' 


00c3b* 

ObOu 

9K00 

1302 



5TK 

$R1 * <DT55+1 


00*363 

ObO* 

9870 

826D 



LDP 

$k1 * = 2 * 826D' 


002364 

obO* 

9F00 

1230 



57k 

$R1 ,<DTS4+1 


00*363 

ObOb 

9870 

0682 



LDR 

$R 1, =2 •0682• 


00*366 

ObOo 

9F00 

125F 



57 k 

$R1,<DTS3 


002367 

ObOA 

9870 

0301 



LDk 

$R1,=2 *0301* 


002368 

ObOC 

9F00 

1220 



5TR 

$K 1 * <0752 + 1 


00^369 

ObOt. 

9870 

0601 



LDk 

$K1 * = 2 *0601• 


00*370 

OblO 

9F00 

11 b9 



5TR 

$R1,<DTS1 


002371 

Ob 12 

0 F 8 0 

OCDD 



b 

<0P 


0U*37c 

Ob 14 

9840 

F F 46 


IPAnO 

LDk 

$k 1 * AP Ak 1 T 4-2 


00*373 

Ob i 6 

9570 

OOOF 



AihD 

$K1 ,=X*DF * 


00*37h 

Oblb 

9970 

0045 



OMR 

$ki,=X*43* 

E FOR EVEN PAkOITY 

00*373 

Obi A 

090 A 




bE 

>IPako 


002376 

Oblb 

9970 

004F 



OMR 

$K1 , = X*4F• 

0 FDR UDO 

0 u 2 3 7 7 

Oblb 

090 7 




bE 

>1PAR0 


GU2378 

Oblb 

9970 

004E 



OMR 

$K1*=X*4L* 

N FDR NO PARI|Y 

00237V 

0b20 

098C 




6NE 

>IPARE 


00238U 

Ob2i 

A3C0 

0016 



limj 

$B2,FUPN 


002381 

Ob2 3 

OF 80 




b 

>4-$A 


00^38*. 

0b24 

A3C0 

002 F 


1PARD 

LNJ 

$62,FUP 


U02383 

Ob46 

A3C0 

0049 


$A 

lnj 

$62,AOF 


002384 

ob2b 

0300 

FE5 3 



LNJ 

$64,M6R 


002383 

Ob2 A 

OF 8 1 

F5E5 



■ B 

IMEXI 


00238b 

0620 

bboo 

0b30 


1 PARE 

LAb 

$63,<1LP 


002387 

Ob2E 

OF 8 1 

F F 99 



b 

IPAKb 


00238b 

Ob3u 

6V6C 

6065 

6 761 

1LP 

7 LA 7 

•ILLEGAL parity** 


Ob33 

6020 

7061 

7269 







7479 

2400 






00238V 





* 




002390 





* 




002391 





* THIS PUT5 T Fit. CORRECT 

PAR I7 Y IN THE OOP 

002392 





* 




002393 

0b38 

AF CO 

001A 


FUPN 

5T6 

$62,FUPP*1 

5ET UP TFIE RE 1 URN 

002394 

063a 

9870 

40bD 



LDR 

$Rl ,=2'40BD» 


002393 

Ob3C 

9 F 40 

05Fb 



5 TR 

$R1,T T A1♦6 


00239b 

0b3L 

9F40 

0600 



57 R 

$K1 , ITAl+13 


002397 

ob*o 

9F 40 

0641 



5TH 

$K1 ,RI A24-1 


002^98 

0b42 

9870 

4006 



LDR 

$R1 ,=2*4006* 


002399 

Ob*4 

9F 40 

05F0 



5TK 

$R1 ,1TAU16 


002400 

Ob*6 

9870 

3060 



LOR 

$R1 ,=2*3060* 


002401 

0b4b 

9F40 

0612 



5T R 

$R1 ,K f A1 + 1 


002*02 

Ob4A 

9870 

3050 



LDR 

$K1 , = 2*3050* 


002403 

Ob4C 

9F40 

06 3 F 



5TR 

$R1,R1A3*l 


002404 

Ob*E 

9FOO 

1129 



57R 

$ki,<T T A+14 


002403 

Ob50 

9F00 

112D 



57R 

$R1,<7 TA+18 


00240b 

Ob52 

OF 80 

0B52 


FUPP 

b 

<FUHP 


002407 





* 




00240b 

Ob34 

AFCO 

001A 


FUP 

576 

$62 ,FUPE4-I 


002409 

Ob3o 

9870 

50bD 



LOR 

$R1 , = 2*3060* 


002410 

Ob5b 

9F40 

050F 



57 R 

$R1,T7A1 + 6 


002411 

Ob5A 

9F40 

05E4 



5TR 

$K1,ITA1+13 


00241 * 

0650 

9F 40 

0625 



5TR 

$Ri ,KIA2♦1 


002413 

Ob5b 

9870 

5006 



LOK 

$K 1 , = 2'3006 » 


002414 

0b6O 

9F40 

05E1 



57 R 

$K1,1TA14-16 


002413 

Ob64 

9870 

7007 



LOR 

$R1 , = 2*7007* 


00241b 

0b64 

9F40 

05 F 6 



5TR 

$R1 , K 7 A1 1 


002417 

0666 

9870 

3050 



LDR 

$R1,=2*3050* 


002*1b 

Ob68 

9F40 

0623 



57R 

$Ri,kl A34-1 


002419 

ObOA 

9F00 

1120 



57 R 

$Rl ,< TTA4* 17 


002420 

0b6C 

9F00 

1130 



57 k 

$K1,<7 T A+2 1 


002*21 

ObOL 

OF 80 

0b6E 


FUPE 

b 

<F UPt 


0u2*22 





* 




002*23 





* A5YNC CONFIG FOk LK6 


002424 





* 




002423 

0670 

9840 

FEDA 


AOF 

LOR 

$R1,0H512L 


002*26 

Ob 7 2 

9570 

0003 



AND 

$R1,=X'3• 


002*27 

0b74 

1908 




btZ 

$R1 ,>05b 

CHAR.512E 8 

00242b 

0673 

1P01 




CMV 

$K1,=1 


002429 

0b76 

0906 




bL 

> AOF A 


002*30 

0b7 7 

1D02 




OMV 

$K1, = 2 


002431 

0678 

0907 




BE 

>05<j 


002432 





* 




002433 

0679 

F870 

8000 



LOR 

$R 7, = 2*8000* 

7 BIT CHAR 

002434 

Ob 7b 

OF 86 




b 

> A 0 F A 


002433 

Ob 70 

F 870 

0000 


058 

LOR 

$R7,=2*0000* 

8 BIT CHAR 

002436 

06 71 

0F83 




b 

>ACF A 


0 u 2 * 3 7 

067 F 

F870 

4000 


056 

LOK 

$R 7, = 2*4000* 

6 BIT CHAR 

002438 





# 




002439 

0b8l 

9840 

FED9 


AOF A 

LOR 

$R 1, APAR1 T4>2 


002*40 

0683 

9570 

OODF 



AND 

$R1,=X*0F* 


002*41 

0683 

9970 

0043 



OMR 

$R1,=X*45* 


002442 

Ob8 7 

0908 




BE 

>PE 

EVEN PARITY 

002443 

0688 

9970 

004F 



OMR 

$kl , = X•4F• 


002444 

OBOA 

0910 




bE 

>56 

ODD PARI 1Y 

002443 

ObOb 

9970 

004E 



OMR 

$Ri,=X*4E* 


002*46 

0680 

0906 




BE 

>PN 

NO PARITY 

002447 

OBOE 

0F69 




b 

>PNO 

DON'T CAKE PARITY 

002*48 

GBOF 

9870 

1000 


PE 

LDk 

$R1 , = X*1000* 


002*49 

0691 

FA51 




AOO 

$ R 7, = $ R1 


002450 

0692 

0F88 




b 

>Sb 


002*51 

0693 

9870 

2000 


PN 

LOR 

$R 1, = X * 2000 * 


002454 

0693 

FA51 




AOO 

$K7,=$R1 


002*53 

0b96 

OF 84 




6 

>56 


00245* 

069 7 

9870 

3000 


PNC 

LOR 

$R 1 , = X * 3000 * 


002453 

0699 

F A 5 1 




AOO 

$R7,=$R1 


002456 





* 




002457 

ObVA 

98*0 

FEb7 


5b 

LDR 

$Ri,5bIT5 


002458 

069C 

1D01 




OMV 

$R1, = 1 


002*59 

0690 

0904 




bE 

>5BD 


002460 

069E 

9870 

0800 



LDR 

$R1* = X * 800 * 


002461 

OBmO 

FA51 




ADD 

$R7 , = $R1 


002462 

0BA1 

FF40 

0002 


560 

5TK 

$K 7,LR60FA 


002463 

ObA3 

8382 



ACFE 

JMP 

$62 


002464 

06A4 

0000 



LK6CFA 

RE5V 

1 ,Z»0000* 


002463 





* 




002466 





* 




002467 





* 

INPUT 

7ERM1NAL TYPE, 

CHECK IF SUPPORTED 

002468 





# 




002469 

06A5 

8740 

00A7 


1NTMI 

CL 

5YNFLG 


002470 

0BA7 

8740 

00A6 



CL 

POLFLG 


002471 

0BA9 

8740 

00A3 



CL 

NPLFLCj 
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002*72 

OBAo 

8740 

O0A4 


CL 

ptrflg 


002473 

ObAD 

AFCO 

00 A* 


STB 

$62 «1NTMX+1 


002474 

ObAF 

93C0 

0035 


I NT MAI LNJ 

SBUTERTYP 


002*73 

Obbl 

3731 

3030 


TAB1 OC 

A • 7100 * 


002476 

0Bb3 

3732 

3030 


OC 

A«720Q* 


002*77 

Obb3 

5454 

5943 


OC 

A*TTYC* 


002476 

Obb I 

5454 

5952 


DC 

A • T T Y R • 


00247V 

0bb9 

3454 

5920 


OC 

A*TTY • 


002480 

Obbb 

5457 

5531 


OC 

A• TwUl * 


002481 

ObbO 

545 7 

3532 


OC 

A*TwU2* 


002482 

ObbF 

5457 

5533 


OC 

A* T wU3' 


002483 

obci 

5457 

3535 


OC 

A • T wU5 * 


00248* 

0bC3 

3737 

3630 


OC 

A* 7760 1 


002483 

ObC5 

3737 

3030 


OC 

A*7700* 


002486 

ObC 7 

3737 

3635 


DC 

A • 7 7 6 5 • 


002487 

0bC9 

5052 

5531 


OC 

A * PRU1 * 


00248b 

ObCb 

5032 

5532 


OC 

A * PkU2 * 


002489 

ObCD 

5032 

5533 


OC 

A * PKU3 ’ 


002*90 

ObCF 

5052 

5535 


OC 

A * PKU5' 


002491 

ObOl 

3738 

3030 


OC 

A•7800• 


002492 


0BD3 



ENOTbl EUU 

$ 


002493 

Ob03 

004* 



SUE OC 

(ENoTbl-T Abl)*2 


00249* 

ObD* 

0C31 



bATAb PC 

<I NT MC 

7100 

002493 

ObD5 

0C31 



OC 

< INTMD 


002*96 

ObDb 

0C31 



OC 

< IN i MO 

TTYC 

002*97 

ObD7 

0C31 



OC 

< IN i MC 

TTYR 

00249b 

ObOo 

0C36 



OC 

<: INTME 

TTY 

002499 

0bL)9 

OCOE 



OC 

< IN T 1 1 


002300 

ObDA 

OC 17 



OC 

< 1N1 T 2 


002301 

ObDb 

OC 1A 



OC 

< I NT 13 


002302 

ObOC 

OC 1E 



OC 

< 1NI T 5 


002303 

OBDD 

0C3b 



OC 

< 1NTMG 


002304 

ObDE 

0C3b 



DC 

<INTMF 


002303 

ObDF 

0C3B 



OC 

<INI MG 


002306 

ObEO 

OCOE 



OC 

< IN1 P1 


002307 

ObEi 

OC 1 7 



OC 

<IN|P2 


00230b 

0bE2 

OC 1A 



DC 

< 1NTP3 


002309 

ObE3 

0C1E 



OC 

< IN T P 5 


002310 

ObE4 

0C2C 



OC 

<INIMH 


002311 

ObE3 

1C00 



TfcRTYP LDV 

$R 1»0 


002312 

ObEo 

2C01 



LOV 

$K2 * 1 


002313 

ObE 7 

C840 

0072 


LOR 

$R4 *T MNA5C+1 


002314 

06E9 

0840 

0071 


LOR 

$R5,T MNASC + 2 


002313 

Obtb 

C911 



LOOP Chk 

$K4 , $bl • $Rl 


002316 

ObEC 

0981 

0009 


6NE 

NEXT 1 


002317 

Obtt 

0921 



CMR 

$K5,$bl.$R2 


002318 

ObEF 

0981 

0006 


bNE 

NEXT 1 


002319 

ObF 1 

1052 



SCR 

$kl,2 


002320 

ObF* 

ion 



SCL 

$ki,$AF 


002321 

ObF 3 

9690 

0604 


LAb 

$B1*<6A1Ab#$Ri 


002324 

ObF 5 

8389 



JMP 

*$Bi 


002323 

ObFo 

2E02 



NEXT 1 AOV 

$R2«2 


002324 

ObF 7 

1E02 



AO V 

$R1»2 


002323 

0bF8 

9940 

FFDA 


CMR 

iKbbIZE 


002326 

ObF A 

0381 

FFFO 


bLE 

LOOP 


002327 

ObFC 

b3C0 

04 A3 


ENJ 

$b3*ERKMb 


002328 

ObF E 

OF 80 

ono 


b 

<NEXT 


002329 

OCOO 

5445 

5240 

494E 

TEXT 

•TERMINAL NAME IS 

NOT KNOWNS* 


0C03 

414C 

204E 

4140 






4520 

4953 

204b 






4F 54 

2046 

4E4F 






374E 

2400 





002330 


OCOE 



1NTT1 EUU 

S 


002331 

OCOE 

96C0 

0013 


1NTP1 LAb 

$bl,LbPl 


002332 

OLIO 

9FC0 

0124 


COMMON STB 

$bl,CbkTO 


002333 

0C12 

1C01 



LOV 

$R1,=1 


002334 

003 

9F40 

003C 


STR 

$R1,PTRFLG 


002333 

0C13 

OF 80 

0C5 1 


b 

<I NTMX 


002336 


OC 17 



I NT 12 EUU 

$ 


002337 

OC17 

9BC0 

OOOC 


1NTP2 LAb 

$B1 * LBP2 


00233b 

0C.19 

OFF 7 



b 

'>COMMON 


002339 


OC 1A 



1NTT3 EUU 

$ 


002340 

0C1A 

9BC0 

000b 


INTP3 LAb 

$B ULBP3 


002341 

OCR 

OFfal 

FFF 3 


b 

COMMON 


002342 


0C1E 



INIT3 EUU 

$ 


002343 

OC 1E 

9BC0 

0006 


INTP5 LAb 

$Bl,LbP5 


002344 

0C20 

OF b 1 

FF EF 


b 

COMMON 


002343 





* HERE IF PRUi/TWUi 


002346 

0C22 

01 *C 



LbPl OC 

300 

SARA 300 BAUD 

002347 

0C23 

0000 



OC 

0 


002348 





* HERE IF PRU2/TWU2 


002349 

0C2* 

04B0 



L6P2 OC 


SARA 1200BAUD 

002350 

0C23 

0000 



DC 

0 


002551 





* HERE IF PR03/TWU3 


002354 

0C*6 

006 b 



L6P3 OC 

no 

ROSY 24 SPEED SELECTABLE 

002353 

OC* 7 

OOCb 



OC 

200 


00*35* 

0C28 

U12C 



OC 

300 


00*353 

0C29 

0000 



OC 

0 


002356 





* HERE IF PRU3/TWu5 


00*357 

0C2 A 

04b0 



L6P5 OC 

1200 

ROSY 26 FIXED SPEED 

00235b 

oC*b 

0000 



OC 

0 


00*359 





* 



002360 





* HERE IF 7800 


004561 


0C2C 



1NTMH EUU 

$ 


00236* 

0C2C 

9680 

0D5E 


LAb 

SB 1»<LB780Q 


002363 

0C2E 

9FC0 

0106 


STB 

$B1,CbRT*l 


002364 

0C30 

OF A1 



b 

>INTMX 


002365 





* 



002366 





* HERE IF 

TTYR 


0O256 ? 


0C3 1 



INTMC EUU 

$ 


002568 





* HERE IF 

TTYC 


002369 

0C31 

9680 

0040 


I NTMO LAB 

$61 ♦ <L6TTRC 

SET UP PU1NTEK TO LEGAL BAUD RATE 

002570 

0C33 

9FC0 

0101 


STB 

SbUCbKM 

TABLE FOR TTY-R•S AND T1Y~C'S 

002571 

0C35 

0 F 9 C 



b 

>I NT MX 


00257* 





* HERE IF 

TTY 


002373 

0C36 

9660 

0058 


1NTME LAb 

$bl,<LBTTY 


00257* 

0C38 

9FC0 

OOF C 


STB 

$Bl,CbRT+i 


00*875 

0C3A 

0F97 



b 

>INI MX 


002376 





* HERE IF 

7760,7765 


002377 


0C3b 



1 NT MG EUU 

$ 


00257b 





* HERE IF 

7700 


00*579 

0C3b 

E800 

0C69 


INTMF LOR 

$R6,<bORATE 


00*380 

0C3D 

EF 40 

OOOE 


STR 

$R6,POLAOR 






TI ILt 1 CSC 1 * * REV b* TERMINbL TLST 


PAGE 


43 


002581 

0C3 P 

E970 

00 1 P 



OMR 

SR6,=31 


00258c 

OCaI 

0300 

0C48 



be 

< AbtR 


002583 

0C43 

6C01 




EbV 

Sk6,=l 


002584 

OCaa 

EPOO 

0C4D 



STk 

$R6 » <5YNPLU 


00^585 

0C46 

OP 6 1 

0026 



b 

ipaksy 


002586 





* 




002587 

0C46 

bbSO 

ObOl 


ADtR 

LAb 

$B3 * <1AbEk 


002588 

0C4A 

OP 60 

0AC8 



b 

<1PAKb 


002589 





* 




002590 





* 




002591 

0C4C 

0000 



FOLAUK 

be 

0 


002592 

0C4U 

0000 



SYNPLG 

be 

0 


002593 

0C4L 

0000 



POLPLG 

DC 

0 


00259a 

0C4P 

0000 



iNiPLFLG 

DC 

0 


002595 

OCbO 

0000 



PTKPLG 

DC 

0 


002596 





* 




002597 

Oobl 

OP 60 

OCbl 


I NT MX 

b 

<INI MX 

RETURN TO CALoEk 

002598 

0C53 

C640 

0006 



Lbk 

$R4 * TMNASC+ 1 


002599 

0C55 

0840 

0005 



LDR 

SR5VTMNASC+2 


002o0u 

OCb 7 

OP 8 1 

P P 57 



b 

I NT MAI 


002601 





# 




002o0c 

0C59 

2020 

3731 

3030 

TMNASC 

TEXT 

• 7100$* 



0C5C 

2400 







002603 

0C5b 

5445 

524b 

2054 

ThNTYP 

TEXT 

• TERM TYPE*, 



0C60 

5950 

A53A 

3 A24 





002604 





* 




00260b 

0C63 

4241 

5544 

2052 

bbKlQ 

TEXT 

•bAub RATE;: s» 



0C66 

4154 

453A 

3 A24 





002606 

0C69 

04b0 



bDHATE 

kESV 

hUUO 

BAUD RATE 

002607 

0C6A 

2020 

3F3A 

2400 

DUES 

TEXT 

1 ?; s» 


002608 





* 




002609 





*CHLCK 

VALlbll 

IY OF PARMETER INPUT 

FOR SYNC TERMINALS 

00^610 





* 




002611 





* 




0026 1 c 

0C6b 

9800 

0 A4b 


IPARSY 

Lbk 

$R1 * <CHS12E 


002613 

OCbF 

1048 




SUK 

SRU6 


002614 

OC 70 

9 A70 

2000 



Abb 

Ski , = X»2000* 


00261b 

0 C7 2 

9F00 

0 A6b 



STk 

SRI*<MUb*2 


002616 

OC 74 

9970 

204E 



CMR 

Ski ,=X»204E» 

N NONPUL 

0026 1 7 

OC 76 

0900 

0C7F 



BE 

<NONPOL 


002616 

0C76 

9970 

2050 



CMR 

Ski*=X»2050» 

P POLL 

002619 

0C7A 

0916 




be 

>POLL 


002620 

0 C 7 D 

bb 80 

Ob 19 



LAb 

Sb3,<M0bERR 


002621 

0C7D 

OP 60 

0AC8 



b 

<1PAKb 


002622 


0C7P 



NONPOL 

EUU 

S 


002623 

0C7P 

9POO 

0C4F 



STk 

Sk W<NPLFLG 


002624 

0C61 

9870 

1C01 



Lbk 

ski *=x* icoi• 


00262b 

0C83 

9 FOO 

1202 



SIR 

SRI»<SELCHK 


002626 

0C85 

9870 

0001 



Lbk 

Ski*=X»01• 


002627 

0C8 7 

9F00 

1203 



STk 

Skl*<SELCHK+l 


002626 

0C69 

9P00 

1204 



STR 

ski ,<SELCHK + 2 


002629 

CCfaD 

9 P 00 

1205 



STk 

Ski »<SELCPiK*3 


002630 

OCbO 

9 FOO 

1206 



STk 

Ski ,<SELCHK*4 


002631 

0C6F 

OP 80 


r 


b 

> + $ A 


002632 


OC90 



POLL 

EuU 

S 


002633 

0C90 

9F00 

0C4E 



STk 

Ski*<P0LFLG 


002634 

0C92 

9800 

1202 



Lbk 

Ski»<SELCHK 


00263b 

0C94 

9970 

1C86 



CMR 

SRl'tsZ* 1C86» 


002636 

0C96 

0979 


1 


BE 

> + $A 


00263 7 

0C97 

9870 

1C86 



LDR 

SR1*=2»1C86» 


002636 

0C99 

9P00 

1202 



STk 

Ski *<SELCHK 


002639 

0C9b 

9870 

6010 



Lbk 

SRI*=2'6010» 


002640 

0C9b 

9 P 00 

1203 



STk 

Sk 1 * <SELCPiK+ 1 


002641 

0C9F 

9870 

9741 



LDR 

$R 1 i =2'9741• 


002642 

OCA 1 

9FOO 

1204 



STk 

SRI »<SELCHK-f2 


002643 

0CA3 

9870 

9641 



LDR 

Sk1 * =2 * 9641 * 


002644 

OCAb 

9F00 

1205 



SIR 

Ski ,<SELCPiK>3 


00264b 

0CA7 

9670 

271b 



Lbk 

Ski * = 2*271b» 


002646 

0CA9 

9 FOO 

1206 



STR 

Ski*<SELCHK^4 


002647 

OCAb 

9840 

FDA6 


SA 

Lbk 

Sk1 * SB ITS 


002646 

OCAb 

9P40 

PDC7 



STR 

SRUCLIU2 


002649 

OcAF 

9970 

4C36 



CMk 

Ski*=X'4C36« 

L6 

0026SO 

OCbl 

0900 


1 


BE 

>*Sd 


002651 

0Cb2 

. 1048 




SOk 

SR1»8 


002652 

0CU3 

9A70 

2000 



Abb 

Ski,=X»2000* 


002653 

OCbb 

9P40 

FDbF 



STk 

Ski *CLK+2 


002o54 

OCB 7 

9970 

2054 



CMR 

Ski i = X•2054• 

T 

002655 

0CB9 

0900 

OAFA 



BE 

<DTs 


002656 

ocbb 

bb80 

ObOE 



LAb 

SB3*<CLKEkk 


002657 

OCbb 

0F80 

0AC8 



b 

<IPAKb 


002658 

OCBF 

9800 

11B9 


SB 

Lbk 

SR 1»<UTS1 


002659 

OCCi 

9970 

C6C9 



CMR 

Sk1» = 2 1 C6C9 * 


002660 

0CC3 

0900 

OCDb 



BE 

<DP 


002661 

0CC5 

9870 

C6C9 



Lbk 

SRI»=2*C6C9» 


002662 

0CC7 

9F00 

11B9 



STR 

Ski ,<DTS1 


002663 

0CC9 

9870 

C920 



Lbk 

Ski * = 2»C920* 


002664 

OCCb 

9F00 

1371 



STk 

SR 1»<DT S6+1 


002665 

OCCb 

9870 

C9bb 



Lbk 

$R1t=2 , C9BD* 


002666 

OCCF 

9F00 

1302 



STR 

Sk 1 * <DTS5*1 


002667 

OCbl 

9870 

8ABD 



Lbk 

Ski,=2»8ABb» 


002668 

0CD3 

9 FOO 

123C 



STR 

$R 1 »<DTS4+1 


002669 

0CD5 

9870 

C68A 



Lbk 

Ski * = 2«C68A» 


002670 

OCb 7 

9 FOO 

125F 



STR 

Ski ,<bTS3 


002671 

0Cb9 

9870 

CbO 1 



Lbk 

SR i t=2 1 CBO 1 1 


002672 

0Cbb 

9F00 

122C 



STk 

SRI »<bTS2*l 


002673 

OCDb 

9840 

FD7D 


DP 

Lbk 

$R1 ,APARIT*2 


002674 

OCbF 

9F40 

FD9F 



STk 

SRi *DPC*2 


002675 

OCtl 

9570 

OODF 



AND 

SRI*=X'DF • 


002676 

0CE3 

9970 

0044 



CMR 

Ski»=X»44» 

b FOR DISPLAY ADDRESS 

002677 

OCEb 

0901 

GOOD 



BE 

blSA 


002678 

0CE7 

9970 

0050 



CMR 

Ski»=X*50* 

P FOR PRNT ADDRESS 

002679 

0CE9 

0901 

000b 



BE 

PkTA 


002680 

OCEb 

9970 

0043 



CMR 

$Ri,sX*43» 

C FOR CASSETTS 

002681 

OCEb 

0901 

OOOD 



bE 

CST A 


002682 

OCEF 

bb80 

0D25 



LAb 

SB3,<bERR 


002683 

OCF 1 

OF 60 

0AC8 



b 

<IPAKB 

PRINT tRROR 

002684 





* 




002685 

0CF3 

9870 

601D 


DISA 

LDR 

Ski» = 2 * 601D* 


002686 

OCF 5 

OF 8 1 

0007 



b 

ST 


002687 

OCF 7 

9870 

681b 


PRT A 

Lbk 

SRI*=Z»681b» 


002686 

OCF 9 

0F81 

0003 



b 

ST 


002689 

OCFb 

9870 

701D 


CST A 

Lbk 

SRi«sZ*701D» 


002690 

GCFb 

9F40 

FA34 


SI 

STk 

Sk1*PT LCTB 




TITLE TCSCl,»kEV b* TERMINBL TEST 


PAGE 


44 


002691 

OCFF 

OF 6 1 

F 410 



B 

NEXT 

002692 

0D01 

494C 

4C45 

4741 

TADER 

TEXT 

•ILLEGAL TERMINAL ADDRESSS* 


0D04 

4C20 

5445 

524D 






494E 

414C 

2041 






4444 

5245 

5353 






2400 






002693 

ODOE 

696C 

6C65 

6761 

CLKERR 

TEXT 

•ILLEGAL TIMING SOURCES• 


ODi 1 

6C20 

7469 

6D69 






6E67 

2073 

6F7 5 






7263 

6524 





002694 

Op 19 

696C 

6C65 

6761 

MODERR 

TEXT 

•illegal OPERATION MODES* 


0D1C 

6C20 

6F70 

65 72 






6174 

696F 

6E20 






6D6F 

6465 

2400 




002693 

0D2 3 

494C 

4C45 

4 741 

DERR 

TEXT 

♦ILLEGAL DIS/PRT/CST ADDRESS** 


0D26 

4C20 

4449 

532F 






3032 

542F 

4333 






5420 

4144 

4452 






4553 

5324 





002696 





* 



002697 





* 



002696 





* 



002699 





* 

CHECK 

IF BAUD RATE uEGAL 

002700 





* 



002/01 

OD33 

6751 



Cbk 

CL 

=SR1 USE AS INDEX 

002702 

0D34 

9B80 

0D58 


CBRT 

LAB 

SB1»<LBTTY LOAD TABLE ADuRtSS 

002703 

0D36 

A640 

FF 32 



LDK 

SR2 *BDRaTE BAUD RATE INPUT 

002704 

0D36 

B85D 



CBRA 

LDR 

SR3 ,SB1• + SR1 LOAD VALUE 

002703 

0P39 

B952 




CMR 

SR3,=SR2 OK?? 

002706 

0D3A 

0903 




bt 

>CBKb 

002707 

0D3B 

3903 




BE2 

SR3* >CBRC 

002706 

0D3C 

OFF C 




B 

>CBKA CHECK ANOTHER ONE 

002709 





* 



002710 

0D3P 

8364 



CBRB 

JMP 

SB4 

002711 





* 



002712 

0P3E 

bB60 

0D44 


CBRC 

LAB 

SB3 *<CBRD 

002713 

OU40 

C3C0 

09A4 



LNJ 

SB4 *TYPEC 

002714 

0P42 

OF 8 1 

F3CD 



B 

NEXT 

002713 





* 



002716 

0D44 

494C 

4C45 

4 741 

CBRD 

TEXT 

•ILLEGAL BAUD RATES* 


0D47 

4C20 

4241 

5544 






2052 

4154 

4524 





002 717 
002718 
002719 
002720 
002721 
002722 
002723 
002724 
002721? 
002726 
002727 
002/26 


LEGAL BAUD RATE TABLE FOR TTY-R AND TTY-C 


LBTTRC DC 
DC 


002729 

0056 

2580 



DC 

9600 


002730 

OD57 

0000 



DC 

0 

ZERO IS END OF TABLE 

002 73 X 




* 




002732 




* 




002733 




* 

LtGAL 

baud rate table 

FOR THE TTY 

002734 




* 




002735 

0D56 

006E 


LBTTY 

DC 

110 


002736 

0P59 

0000 



DC 

0 


00273 7 




* 




002736 




* LEGAL BAUD RATE TABLt 

FOR THE SARA 

002 /39 




* 




002 740 

0b5 A 

006E 


LBSARA 

DC 

110 


002741 

0U5B 

012C 



DC 

300 


002742 

0D5C 

04B0 



DC 

1200 


002743 

0P5D 

0000 



DC 

0 


002744 




* 




002 745 




* LEGAL BAUD RATt TABLE FOR 7800 

002746 




* 




002747 

0D5E 

006E 


LB7800 

DC 

lie 


002746 

0D5F 

0096 



DC 

130 


002749 

0D60 

012C 



DC 

300 


002750 

0U61 

0258 



DC 

600 


002751 

0Uo2 

04B0 



DC 

1200 


002752 

0D63 

0708 



DC 

1800 


002/53 

0D64 

0960 



DC 

2400 


002754 

0D65 

12C0 



DC 

4800 


002755 

0D66 

2580 



DC 

9600 


002/56 

0P67 

4B00 



DC 

19200 


0o2 /57 

0U68 

0000 



DC 

0 


002756 




* 




002759 




* 

LEGAL 

BAUD RATE TABLE 

FOR THE 7700,7760 

002760 




* 




002/61 

0D69 

0000 


LB7760 

DC 

0 


002762 




* 




002/63 




* 




002764 




* 




002763 




* delay routine (R1 has no. 

OF MILLSEC DELAY WANTED) 

002766 




# 




002 767 

0D6A 

6F40 

07DF 

TMO 

SAVE 

SAV11 =Z •FFFF• 



0U6C 

F FF F 






002/66 

0D6D 

1702 



BDEC 

SRl*>TMOA 


002769 

0D6L 

OF 86 



B 

>TMuD 


002 770 

0U6F 

A670 

00B2 

TMUA 

LDR 

SR2,=178 


002771 

0D7 1 

2702 


TMUB 

BDtC 

SR2»> T MUC 


002 772 

0D72 

OF F 8 



b 

>T MO 


002773 

0D73 

OFFE 


TMPC 

b 

> T MUB 


002/74 

0D7 4 

8FC0 

07D3 

TMOD 

RSTR 

SAV1 * =Z•FFFF • 



0P76 

FFFF 






002/75 

0D7 7 

6381 



JMP 

SB1 


002 776 




* 




002/77 




* 

ID ERROR ROUTINE 


002/76 




* 




002779 

0D7o 

DF40 

07E1 

IDERR 

STR 

SR3 *SAV2 

ID FOUND IS HtRE 

002780' 

0D7A 

EF40 

07 CF 


STR 

$R6»SAV1 

THIS IS THE ID WANTED 

002781 

0D7C 

BB60 

0E58 


LAB 

SB3 » <ERA 

LOAD MESSAGE ADDRESS 

002/82 

0D7E 

C3C0 

0966 


LNJ 

SB4«TYPEC 

GO TYPE EROR MESSAGE 

002783 

0D8O 

BB80 

0D94 


LAB 

SB3 * <IDBAD 

TYPE message; 

002784 

0D82 

C3C0 

0953 


LNJ 

SB4,TYPE 

ADAPTER ID INCORRECT 

002783 

0D84 

BB80 

0D9F 


LAb 

$B3, <EXP 














TITLE TCSCl*' 

• rev b» 

TOKMINbL 

TEST 



PAGE 

45 

002786 

0086 

C3C0 

0950 




LMJ 

$B4 9 TYPEC 


002787 

0088 

C3C0 

0989 




LNJ 

Jb4,HEXPKT 


gT 00278b 

006 A 

1 54 A 





DC 

<SAVl 


m 00278V 

0086 

B680 

00A4 




LAo 

$B3t<ACT 


V 00279U 

008U 

C3C0 

0957 




LNJ 

SB4 « T YPEC 


002791 

008F 

C3C0 

0982 




LNJ 

$B4,HEXPKT 


002792 

0091 

1 55A 





DC 

<SAV 2 


002793 

0092 

OF 8 1 

F 3 7 0 




b 

NEXI 


002 794 






# 




002793 

0094 

6164 

6170 

7465 


lDbAD 

TEXT 

•ADAPTER ID INCORKECTS * 



0097 

7220 

6964 

2069 








6063 

6F72 

7265 








6374 

2400 







002796 

009H 

6578 

7065 

6374 


EXP 

TEXT 

• EXPECTED;$• 



ODA*: 

6564 

3A24 







002 797 

OOA4 

6163 

7475 

616C 


ACT 

TEXT 

• AC T UAL;$• 



OOA 7 

3A24 








002798 






* 




002 799 






# 

INPUT 

ID 


Ou 2 bOO 






# 




002801 

OOAb 

C840 

OOAb 



1 N 10 

EDR 

$R4,CHAN LOAD CHANNEL 

dEING used 

002802 

OOAA 

4026 





ADV 

SK4* = X•26• ADV INPUT ID 

FUNCTION code 

002o03 

OOAb 

8055 




SA 

lu 

= $R3*=$K4 INPUT 1 HE ID 



OOAL 

0054 








00280 * 

OOA u 

0 7F 0 





b i OF 

>-$A 


002 b 0 

GOAL 

8383 





JHP 

Sb3 


002 b 0 b 






* 




002807 






# 




002 b 0 b 






# 




002809 






# 




002810 

ODAF 

bBbO 

00B5 



REMLP 

LAb 

SB3 »<REMLOP 


002811 

OObi 

C3C0 

0933 




LNJ 

$B4,TYPEC 


002812 

0003 

OFfal 

FBAO 




b 

COUNT A 


002613 

00b3 

7265 

606F 

7665 


KEMLOP 

TEXT 

•REMOVE. LOOPS* 



Obbb 

206C 

6 F 6 F 

7024 






002b 1 4 






* 




002813 






# 

INPUT 

AbCII PARAMETERS 


002 b 16 






# 




002817 

ODbo 

9F40 

0099 



1ASC 

bTK 

SKUKNG 


002818 

OObO 

87 40 

0089 




CL 

TEMP 


002819 

ODbF 

8 740 

0088 




CL 

TEMP+1 


002820 







CALL 

4V$IA,STATtTEMP,RNG 



uoci 

FBCO 

0003 








ObC3 

0360 

0000 


X 






0UC5 

0F80 









UDCb 

0054 









00C7 

0047 









OOCb 

0055 








002821 

U0C9 

6382 





JMP 

SB2 


002822 






* 




002823 






* 

INPUT 

HEX PARAMETERS 


002824 






# 




002o23 

OOCA 

9F40 

008 A 



IHtX 

bTK 

$Ki»RNG 


002 o 2 b 

oocc 

8740 

007 A 




CL 

TEMP 


002827 







CALL 

2VSiH,TEMP 


M 

OuCt 

FbCO 

0003 







1 

0000 

0360 

0000 


X 





I 

0002 

OFbO 









0003 

0047 








002828 

0004 

8362 





JMP 

Sb2 


002829 






# 




002830 






* 

INPUT 

DECIMAL PARAMETERb 


002831 






# 




00283*: 

0005 

9F40 

007F 



1 dec 

bTK 

$K1»KNG 


002833 

0007 

8740' 

006F 




CL 

TEMP 


002 8 34 







CALL 

2VSIH # 2VSID*TEMP 



0009 

FbCO 

0003 








000 b 

0380 

0000 


X 






0000 

OFbO 









ooot 

0047 








002o33 

0 0 0 F 

8382 





JHP 

$B 2 


002836 






* 




002837 

ObtU 

6 C 6 F 

6F70 

2072 


LPKEM 

TEXT 

• LOuP KEhOVEDS* 



0003 

6 560 

6F76 

6564 








2400 








002838 






# 




002839 

0007 

bb&O 

UDFO 



OOPS 

LAb 

Sb3•<INpERR COMMAND LINE 

tRROR 

002840 

0009 

C3C0 

06 Fb 




LNJ 

$B4•IYPEC 


002841 

ODOd 

bC02 





LDb 

Sb3t=$B2 


00284*: 

OOLC 

C3C0 

08E9 




LNJ 

$B4 * 1YPE 


002843 

0000 

OF 8 1 

F 32 1 




b 

NEXT 


002844 










0U2845 

ODFO 

4940 

5055 

5420 


INPERk 

TEXT 

•INPUT ERROR:s* 



OOF 3 

4552 

524 F 

523A 








2400 








002b4o 






* 




002847 

OOF 7 

5445 

5240 

4941 


TITLE 

TEXT 

•TEKMINALb TEbT 



OOFA 

414C 

5320 

5445 








5354 

2020 







002o31 

OOFF 

5443 

5343 

3120 


SLAF 

TtXT 

* TCbCl REV b • 



0002 

5245 

5620 

4220 






00285*: 

0005 

204A 

554C 

5920 


LLAF 

TEXT 

' JULY 14 197bS * 



0008 

3134 

2031 

3937 








3824 








002853 

otoc 

636F 

7079 

7269 



TEXT 

•COPYRIGHT 1978 BY HONEYWELL lb INC.S* 


OOOF 

6768 

7420 

3139 








3738 

2062 

7920 








6 86 F 

6 Lb5 

797 7 








656C 

bC20 

6973 








2069 

6E63 

2 E24 






002b54 

0010 

4045 

5854 

2400 


NXT 

TEXT 

•NEXTS* 


002853 

OOci 

6163 

7220 

6672 


EMI 

TEXT 

•ACK FROM ACU* 



0024 

6 F 60 

2061 

6375 






002858 

0027 

636F 

7320 

6 E 6 F 


tM 2 

TEXT 

•COb NOT RECD• 



002 a 

7420 

7265 

6364 






002857 

002 0 

2020 

2074 

6960 


EM3 

TEXT 

• TIMtOUT • 



0030 

656F 

7574 

2020 






M 002858 

0033 

2064 

6174 

6120 


tM4 

TEXT 

♦ DATA ERROR • 


m 

0036 

6372 

726F 

7220 






002859 

0039 

746 5 

7 374 

2066 


EM5 

TEXT 

•TEbT FAILED • 



0L3C 

6169 

6C65 

6420 






002660 

003F 

7876 

3 A 20 

7465 


TCQMP 

TEXT 

•XX; TEbT COMP•S* 



004^: 

7374 

2063 

6 F 6 U 
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7026 

2400 







002661 





* 





002664 

0t47 

0000 



TEMP 

RESV 

6*0 


GENERAL WORK LOCATION 

002663 

0t4D 

0000 



TEST 

R 6 SV 

1*0 


TEST TOEXtCOTt 

002664 

0E4E 

0000 



bCHAN 

R 6 Sv 

1*0 


BASIC CHANNtL(NO LIMES) 

002666 

0t4F 

0000 



CHAN 

K 6 bV 

1*0 


CHANNEL TO TEST 

002666 

0650 

0000 



MESG 

RESV 

1*0 


CANNEO? 

002667 

0651 

0000 



PASSES 

K 6 bV 

1*0 


HOW MANY PASSt-S? 

0 O 2 o 66 

0 1. 3 4 

0000 



tRCO 

K 6 bV 

1*0 


ERROR REPORTING METHOD 

00266V 

0653 

0000 



PCNT 

KtbV 

1*0 


PASS COUNTER 

00267U 

0t54 

0000 



STAT 

RESV 

1*0 


•STATUS INPUT FROM CONSOLE 

002 o 71 

0655 

0000 



KNG 

RlSV 

1*0 


RANGE 

002674 

065o 

0000 



MESGT 

RESV 

1*0 


0=CANNED*1-OPtR INPUT MESSAGE 

002673 

065 f 

0000 



6 RCT 

K 6 bV 

v 1*0 


ERROR COUNTER 

002874 

063 6 

7878 

3A24 


6 RA 

TEXT 

•xx;$» 



002676 

063 A 

0000 



01ALN0 

RESV 

16*0 


PHONE NUMBER TO CALL 

002 o 76 

OtcA 

0014 



UPMKGb 

KtbV 

1*20 


BYTE RANGE OF OPERATOR MtSSAGE 

002677 

066u 

OOOA 



QPMKNG 

R 6 SV 

1*10 


RANGE FOR GPtKATUK INPUT MtSSAGt 

002676 

0E6C 

0009 



RRANG 6 

DC 

9 


REAL RANGE IN WORO 5 

002679 

0660 

0012 



RRANGb 

OC 

18 , 


REAL RANGE IN BYTtS 

00266 U 

0666 

0000 



RCVRNB 

OC 

0 


RECEIVt RANGE IN BYTES 

002661 

OEoF 

0000 



RCVRNG 

OC 

0 


RECEIVE RANGE IN WORDS 

002684 

0670 

6675 

6062 

6572 

PHNO 

TEXT 

•NUMbtK $• 




0673 

2024 








002683 





* 





002684 

06/4 

OOOA 



CANN60 

1 tXT 

4 * OoOA * 



002685 

0675 

3448 

4520 

5155 


TEXT 

•THt QUICK BROWN 

FOX 

JUMPS OVER A LAZY DOG* 


06 76 

4943 

4b20 

4252 








4F 57 

4620 

464F 








5820 

4A55 

4050 








5320 

204F 

5645 








5220 

4120 

4C41 








5 A59 

2044 

4F47 






004686 

0 18 A 

OOOA 




TEXT 

2 * OOOA * 



002667 

068b 

7468 

6520 

7175 


TtXT 

•THE QUICK BROWN 

FOX 

JUMPS OVER A LAZY poG 1 


0666 

6963 

6 b 20 

6272 








6F7 7 

6620 

666 F 








7820 

6A75 

6070 








7320 

206F 

7665 








7220 

6120 

6C61 








7A79 

2064 

6 F 6 7 






002686 

06Au 

OOOA 




TEXT 

4 * OOOA • 



002689 

OtAl 

2122 




TtXT 

» 1 »♦ * 



002690 

06A2 

2 3 A4 




TEXT 

Z•23A4• 


BLIND LIBRARY TO $ (24) 

002691 

06A3 

2526 




TEXT 




002694 

0EA4 

2728 




TtXT 

4 * 2 7 2 6 * 


• < CHARACTERS 

002693 

06A5 

292A 

2 b 2 C 

202 6 


TtXT 

•)*+*-./0123456/89: ;< = >?£fe!\G]* 


06A8 

2F 30 

3132 

3334 








3536 

373b 

393 A 








3B3C 

3036 

3F40 








5B5C 

5056 







002694 

0Lb3 

5F60 




1 EXT 

4»5FfaO* 


ASMbLtK IREATi REVERSE GRAVE (60) LIKE $ (24) 

002698 

0 tb4 

7B7C 

7076 



TtXT 

• * 



002696 

0 Lb 6 

0000 




OC 

0 


NEEDED TO END PRJNj JO CONSOLE 

004697 

06b 7 

OOOA 

^946 

5055 

GOMSG 

TEXT 

Z•ObOA • *•INPUT; » 




06bA 

543A 








002696 

0 6 bb 

OOOA 



OPMESP 

TtXT 

Z*OuOA» 



002699 

Otbc 

552A 



OPMtSG 

KtbV 

9 * A* U* * 


OPERATOR INPUI MESSAGE 

002900 

06C8 

0000 




OC 

0 



002901 

06C6 

OOOA 




TtXT 

4 *OOOA* 


LC WITH DEFAULT OPMESG 

OO49O4 

0 EC7 

4946 

5055 

543 A 


TtXT 

A*INPUT;* 



002*03 

06CA 

OOOA 




TEXT 

Z’OuOA* 



002904 

OECd 

0000 




KtbV 

153*0 


EXTRA WORD FOk POSSIBLE *00 TO tND MtSSAGt. 

002903 





# 





002906 





# 





002907 





# 





002906 





* 





002909 





* GIV 6 

CHANNtL CCB LIST KEbET 



002910 





* 





002911 

Of 64 

8F00 

155 A 


CCbRbT 

SAVE 

<SAy2*=Z»0008» 


B4 


OF 66 

0008 








002912 

OF i> l 

C840 

F 667 



LOR 

$R4 * CHAN 



002913 

OF 69 

4605 




AOV 

$K4,=5 



002914 

0 F 6 A 

8070 

0100 



10 

=Z»0100»,=$K4 


CCB RtSET 


0F6C 

0054 








002913 

OF 60 

0700 


T 


BIOT 

> + $A 



002916 

OF 66 

B3C0 

0131 



6 NJ 

&B3 * EkRMb 



002917 

OF 70 

4346 

4146 

4645 


TEXT 

•CHANNEL CCB RtbtT FAILED** 


OF 73 

4C20 

4343 

4220 








5245 

5345 

5420 








4641 

494C 

4544 








2400 








002916 

OF 70 

C840 

F 601 


SA 

LOK 

$R4*CHAN 



002919 

0F7F 

C57G 

FFbF 



ANO 

3>R4*=Z'FFbF* 



002920 

OF ti 1 

4605 




AOV 

$K4,5 



002921 

OF 8 2 

8070 

0100 



10 

=Z»0100« *=$K4 


CCb RESET ON kECV CHCN# 


0F84 

0054 








002922 

OF 8 8 

0701 

00C3 



BIOT 

nz 



002923 

0 F 6 7 

63C0 

0118 



LNJ 

Sb3 * 6 KKMB 



002924 

OF 89 

5245 

4356 

2043 


TtXT 

•K 6 CV CHAN CCb KtSET 

FAILED** 


0F8C 

4841 

4620 

4 34 3 








4220 

5245 

5345 








5420 

4641 

494C 








4 544 

2400 







002928 





* 





002926 





* GET DATA b 6 T bTATUb 



002927 





* 





002926 

Of- 97 

8F40 

05B2 


iObb 

bAVt 

SAV1*-Z'0008» 


SB4 


OF 99 

0006 








002929 

0F9A 

C600 

1548 



LOK 

3>R4 * <C0NT12 


CONTROL WORD FOR INPUT DATA SET STATUS 

002930 

0F9C 

8055 




10 

s$R5*s$R4 




UF 90 

0054 








002931 

OF 96 

OF 01 

FFFF 



NOP 

$ 



002932 

OF AO 

0700 


T 


blOT 

>♦ $A 



002933 

OF A1 

b380 

10A0 



LNJ 

$B3*<6KKhB 



002934 

0FA3 

4946 

5053 

5420 


TEXT 

•INPUT OATA SET 

STATUS RtOtCTtDi• 


0FA6 

444 1 

5441 

2053 








4554 

2053 

5441 








5455 

5320 

5245 








4A45 

4354 

4544 








2400 








002935 

0FB3 

9840 

F699 


$A 

LDK 

S>R1 *T 6 ST 



002936 

0FB3 

9970 

4453 



CMR 

$R1 * ^X *4453• 


DS TEST 
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002937 

00293b 

002939 

002940 

002941 


0F67 
0Fb9 
OF BA 
OF bu 
GFbC 
OF bt 
OF C1 


002942 

002943 

002944 

002943 

002946 


OFDD 
OF Dl 
OFDF 
OF EO 
OFt2 
OF 13 


0900 
82D5 
8000 
0500 
6360 
4441 
4354 
5455 
204t 
4F4F 
4845 
494E 
4E4E 
4 F 41 
*044 
4524 

8205 
0100 
0580 
b360 
4652 
4720 
52 2 F 
2055 
5235 
3320 
5245 
4845 
494E 
4E4E 
4I-4E 


0505 


1OAO 
5441 
2053 
3320 
4F54 
442C 
434b 
4520 
4543 
2041 

4 55 6 


1 OAO 
4140 
4552 
5840 
4E44 
4E20 
4F43 
442C 
434b 
4320 
4543 
2400 


bt <SKK 

L,b =*R3*=Z*8000» 


2053 
5441 
4953 
2047 
2043 
204C 
434 F 
5449 
4E44 
4943 


494E 

524F 

4954 

4332 

4841 

4353 

2043 

204C 

434F 

5449 


bbT 

LNJ t 

TtXT 


> + $b 

d>b3 i ^LHkMB 

• DA IA bt I bTATUb IS NOT GOOD, CHEU L I N£ CONNECTION AND DEVICE** 


* 

SB 


Lb 

DbF 

LNJ 

TEXT 


=SR5*=Z*0100* 

>4$b 

*B3*<ERRM6 

•FRAMING ERKGR/XM1 T UNDERRUN HAS QlCURED, CHECK LINt CONNECTION** 


002947 


* 



* 



0U2948 

1002 

82D5 



SB 

Lb 

= $R3 * * 0200 * 


1003 

0200 






002949 

1004 

0580 


T 


BbF 

>♦$6 

002950 

1005 

b38Q 

1 OAO 



LNJ 

SB3»<ERRMB 

002951 

1007 

5245 

4345 

4956 


TEXT 

•RECEIVE OVERRUN FlAS OCCURED** 


1 00 A' 

4520 

4F56 

4552 






5255 

4t20 

4841 






5320 

*F43 

4333 






5243 

4424 





002952 





* 



00*953 





# 



002954 





* GET 

LC1 BYTE ADDKtSS BY LCT 53 INTO *R5 

002953 





* 



00295o 

1013 

8 F 40 

0534 


1LCT 

SAVE 

SAV1 « =Z * 0008 • *64 


1017 

0008 






002957 

1018 

C800 

1346 



LDR 

*R4 » <CONT10 CONTROL WORD 

002*58 

1U1A 

OF 01 

FFFF 



NOP 

S 

00*959 

1Q1C 

OFO1 

FFFF 



NOP 

$ 

002960 

1011 

8055 




10 

=$R3»=SR4 


101F 

0054 






002961 

1020 

0764 


T 


BIOT 

> + $b 

002962 

1021 

b380 

1 OAO 



LNJ 

$B3 t <tRRMB 

002963 

1023 

4941 

5053 

5420 


TEXT 

•INPUT LCT IS REJECTED** 


1026 

4C43 

5420 

4953 






2052 

454 A 

4543 






5445 

4424 





002964 

102E 

8FC0 

051b 


SB 

KSTR 

SAV1 » =Z •0008• 


1030 

0008 






002963 

1031 

8384 




JMP 

*64 

002966 





* 



002967 





* GIVE 

DLCP 

GENERAL INITIALIZE 

002968 





* 



002969 

1032 

8F00 

1 5 5 A 


GENIT2 

SAVE 

<SAv2*5Z*0008* B4 


103* 

0008 






002970 

1035 

C840 

FE19 



LDR 

*R4«CHAN 

002971 

1037 

4E01 




ADV 

$R4,;=1 , 

002972 

1038 

8070 

8000 



10 

5Z* bOO-O* , = *R4 INITIALIZE 


103A 

0054 






002973 

103B 

070E 




BIOT 

> IT Z 

002974 

103C 

b3C0 

0063 



LNJ 

*63 * ERRMB 

002975 

103E 

444C 

4350 

2047 


TEXT 

•DLCP GEN INIT FAILED** 


002976 

002977 

002978 

002979 

002980 

002981 

002982 

002983 

002984 

002985 

002986 

002987 

002988 

002989 

002990 

002991 

002992 

002993 

002994 

002993 

002996 

002997 

002998 

002999 

003000 

003001 

00300* 

003003 

003004 

003005 

003U06 


1041 


1049 

104b 

104C 


1040 

104F 

1050 

1052 

1034 

1056 

1057 

1059 
105b 
105C 
103t 

1060 
1061 

1062 

1063 

1064 
1066 

1067 

1068 
106A 
106d 
106C 
1060 


454t 2049 4E49 
5420 4641 494C 
4544 2400 


0008 

8384 


8F40 
E8E0 
C640 
C570 
CF40 
OF 8A 
B840 
8F40 
E8E0 
C840 
CF 40 
9CF3 
8751 

A85D 

2985 

8FC0 

E8E0 

8383 

C840 

8052 

0054 

o?f| 


155 A 

ITZ 

RSTR 

<SAv2 »=Z * 0008 * 



JMP 

*B4 


* btT 

LCT TAbLE 

050C 

LCTRCV 

SAVE 

SAV2tsZ*E8E0* 

04F0 


LDR 

*R4«C0NT5 

FFBF 


AND 

$R4 * sZ•FFBF• 

FDF2 


STR 

b 

*R4 y T EMP 
>LCT2 

FDF7 

SETLCT 

LDR 

*R3iCHAN 

0500 


SAVE 

SAV2 * -Z * E8E0• 

04E4 


LDR 

*R4,C0NT5 

FDE8 


STR 

*R4»TEMP 


LCT2 

LDB 

*B11 -♦•SB3 



CL 

-*R1 


LCT 4 

LDR 

*R2 **Bl• + *RI 

04F5 


6 NEZ 

RSTR 

*R2 »>LCT5 

SAV2 > =Z•E8E0• 



JMP 

*63 

FDDE 

LCT5 

LDR 

SR4 « TEMP 


LCT3 

IQ 

s*R2*5*R4 



61 OF 

>LCT3 


* 

B 

>LCT4 


* OUTPUT CHANNEL CONTROL 

* 

* LNJ $64 jCHCT 
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003U07 

003006 

003009 

003U10 

106E 

8F40 

04EB 



1070 

OCOD 



003011 

10/1 

C840 

04D1 


003012 

1073 

C570 

FFBF 


003013 

107b 

CF40 

FDD 1 


003014 

1077 

0F88 



00301b 

1076 

8F00 

155 A 



107 A 

OCOD 



003016 

107b 

C840 

04C7 


003017 

1070 

CF40 

F0C9 


003016 

10 7 F 

0874 



003019 

1080 

0874 



0O302O 

1081 

C800 

0E47 


003021 

1083 

6055 




1084 

0054 



003024 

106b 

0717 



003023 

1066 

B380 

1 OAO 


003024 

1066 

444C 

4350 

204F 


106 b 

5554 

5055 

5420 



4343 

4220 

434F 



4E54 

524F 

4C20 



494 F 

2057 

4153 



2052 

454A 

4543 



5445 

4424 


00302b 

003026 

109C 

6 F 80 

1 55 A 



109c. 

OCOD 



003027 

003026 

109F 

6364 



003029 

003030 

003031 

003032 

003033 

003u34 

1 OAO 




00303b 

1OAO 

8 F 40 

0409 



10A2 

FFFF 



003036 

1 Om3 

C3C0 

0641 


003037 

003038 

lOAb 

0F81 

F06A 



* e 

* DC 

)t 

>$ + 2 
XX 

RETURN 

XX s CHANNEL 

CONTROL 

CHCTR 

SAVE 

SAV2 ♦=Z * OCOD * 


CHCT 

LDR 

AND 

STR 

b 

GAVE 

SR4.C0NT7 

$R4,=2»FFbF» 

$R4•T EMP 
>CHCT A 

<5Av2f=Z»0C00« 

R4*R5»B5»B7*b4 

CFICTA 

LOR 

STR 

LOR 

LOR 

LOR 

10 

$R4,C0NT7 
$K4»TEMP 
$R5 ♦ *$B4 
$R5 * + $B4 
$R4«< TEMP 
= $R5*=$R4 

DUMMY 

GET CONTROL WuRD 

FUN CODE FOR CCb CONTROL 
OUTPUT CCB CONTROL 


BIOT 

LnJ 

TEXT 

>CH2 

$63♦<LRRMB 
* DLLP OUTPUT CCb 

ERROR 10 WAS nAK'Ed 
CONTROL 10 WAS REjECTEd$* 


* 

CHZ RSTR 

<SAv2»=Z»OCOO* 

JMP 

$B4 

* 


* 

* TO call; 



* LNJ $B3 «ERRMB 

* TEXT •NON-RECOVERABLE-ERROR MESSAGE* 

* 

ERRMB KCSv 0 

SAVE SAV5*sZ*FFFF» 

LiMJ $b4,TYPEC PRINT ERR MSG FOLLOWING LNJ-TO-EKRMB 

b NEXI 

* 


/f 

X-J 
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0G3U39 

003U40 

003041 

003U4^ 

003043 



003044 

0O3O45 


I0A7 

003046 

003047 

0 0 3 0 4 ti 


0400 

003U49 

003O5O 

10A7 

0101 

00305 3 
003054 

10 Ab 

C6C0 

003U55 

00305b 

10A9 

bD30 

003059 

003O60 

10AA 

2601 

003O61 

003062 

lOAb 

bD31 

003063 

003064 

003O65 

10AC 

2001 


/ 

*CHANNEL PROGRAM GOES HERE 

# 

# 

* ORG X»400« 

ELC tuU b 

* LOC ELC1 

ELC1 EUU X•0400• 

* NOP 

* NOP 

* ED =X•CO• DATA IERMINAE REApy ON 

* OUT 2 

* NOP 

* GNb 

* NOP 

* 

* 



C 
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003U66 

003U67 

003068 

00306V 

003070 

003071 


1OAD 

003O72 
00307 3 

0 0 3 0 7 4 


0200 

003075 

00307b 

10AO 

D634 

003079 

003080 

10AL 

0D30 

003083 

003084 

1OAE 

30BD 

003087 

lObO 

3060 

00308b 

003091 

1061 

0614 

003092 

003093 

10b2 

0D30 

003096 

003097 

1003 

28bD 

00309b 

1004 

3100 

003099 

003102 

1005 

D61C 

003103 

003104 

lOBo 

5D27 

003107 

00310b 


0215 

003109 

003110 

1007 

29bD 

003113 

100b 

3060 

003114 

003115 

1009 

bD31 

003116 

003117 

100A 

O'Obb 

003120 

iObD 

3060 

003121 

003122 

003125 

lOtiC 

9634 

003126 

106D 

1097 

003127 

00312b 

lObE 

4196 

003129 

iuOE 

4127 

003132 

003133 

10C0 

0ED6 

003136 

003137 

10C1 

14C* 

003140 

003141 

10C2 

FDbD 

003144 

10C3 

3028 

003145 

003148 

10C4 

0614 

003149 

003150 

10C5 

bD30 

003153 

003154 

10C6 

2820 

003157 

003158 


0235 

003159 

003160 

IOC 7 

EQbb 

003161 

iOCb 

3100 

003162 

003163 

lOCv 

bD30 

003166 

003167 

10CA 

60bD 

003168 

IOCb 

3100 

003169 

003170 


023E 

003171 

003172 

10CC 

ED30 

003175 

003176 

IOCb 

6086 

003179 

10CE 

ODIO 

003180 

10CF 

9741 

003181 

003182 

10D0 

9641 

003185 

10D1 

2708 

003186 

003187 

10D2 

bD31 

003188 



003189 

10D3 

0020 

003192 

003193 


024F 

003194 

003195 

1004 

tFBD 

003198 

I0D5 

3060 

003199 

003*00 


0252 

003201 

003*02 

10D6 

OD30 

003*03 

003*0* 

10D 7 

C086 

003207 

10D8 

1910 

003*08 

10D9 

9741 

003209 

003210 

10DA 

9641 

003*13 

10DB 

2709 

003214 

003*15 

10 


003218 

10DD 

2705 

003*19 

003*20 


0262 

003221 

003222 

lObt 

BD31 

003223 

003224 

10PF 

0020 

003227 

00322b 

0*67 

003229 

003230 

10E0 

E8C6 

003233 

003234 

10E1 

COBD 


/****#***#*********#* 

* 

* LOOP A MESSAGE AT LINE ADAPTER 

* 


* 

LMAA 

* 

UR(j 

EbU 

X'0200 * 

$ 

* 

HLP1 
* . 

LUC 

tbU 

LD 

HLEU 

X*0*Q0» 

52 

* 

OUT 

4 

* 

RECV 

0 

* 

LD 

20 

* 

UUT 

2 

* 

WAIT 


* 

LD 

28 

* 

02 T 

CKST 

* 

TRNX 

* 

LUC 

tuu 

RECV 

TRNX 

X ' 0* 15 * 

0 

* 

WAIT 


* 

RtCV 

0 

*T6LCT 

C 52 

BYTE 1 

* 

BET 

INSY 

* 

LD 

20 

# 

AND 

~X»FD» 

# 

UUT 

2 

* 

LD 

20 

# 

UUT 

2 

* 

b 

TRNX 

INSY 

* 

LUC 

LUU 

WAIT 

INSY 
X*0235' 

* 

RtCV 

0 

* 

WAIT 


* 

CKST 

* 

LUC 

tuu 

RECV 

CKST 

X * 02 3t' 

0 

* 

C 

= X • OD * 

* 

BET 

Gt ICQ 

* 

WAIT 


* 

0 

CKST 

* 

GETC 

* 

LUC 

tuu 

RECV 

GETC 

X•024F • 

0 

* 

GE T CO 

# 

LUC 

tuu 

ST 

Gt I CO 

X 1 0*52 1 
* SIRE 

* 

C 

= X * 19* 

# 

bET 

HLP1A 

* 

bLCT 

HLP1A 

GETC1 

* 

LUC 

EUU 

WAIT 

GE TCI 

X * 0*62 * 

* 

b 

GETC 

* 

HLP1A 

* 

LUC 

tuu 

LD 

HLHIA 

X•0267 * 
sX»CO* 

* 

UUT 

2 


/f > 

'O 1 

GET LANE SPEc-D 8ASYNC) UR SYNC CHAR (SYNC) 

DUMMY RECV 
LINE CONTROL 

SYNC FLG IF lEKO LINE U> ASYNC 

1ST SYIMC 

2ND SYNC 

LDAA,D 


yf \ 

"t „v 

FINAL SYNC 

RECV MRS! CnAR. 

SEE IE START OF DATA OR SYNC. 


PAD EUM 


C 

TURN OFF RECc. ^ 


TITLE TCSCH’REV b* TERMINbL 1 EST 


003237 

10L2 

3028 




00323b 



# 

GNb 


003239 

10E3 

bD31 




003240 



* 

LUC 

NOP 

003241 


02 6F 

NOP 

EUU 

X* 026F • 

003242 



* 

WAIT 


003243 

10t4 

20BD 




003244 

lots 

3100 




003245 



# 

NOP 


00324b 



* 

b 

NOP 

003247 

10t6 

0120 




003250 



* 

NOP 


003251 

lot? 

F AO 1 




003252 



He 



003253 



* CHANNEL PROGRAM FOR 

003254 



* 

LOC 

LP1A 

003255 


0276 

LP1A 

EUU ' 

X • 0 2 7 6 * 

003256 



* 

LD 

34 

003259 

lOLb 

D622 




003260 



He 

OUT 

6 

003261 

10E9 

BD30 




0O3264 



* 

LD 

=X*16* 

003265 

1 OLA 

38C6 




003268 



* 

OUT 

4 

003269 

1 OLb 

16BD 




003272 

10LC 

3030 




003273 



* 

WAIT 


003274 

lOtD 

bD31 




0032 75 



* 

LD 

28 

003^76 

1 OtL 

00D6 




003279 



* 

bZT 

LP1ABD 

003280 

10LF 

1C5D 




U03283 

10F0 

2714 




003284 



# 

LD 

= 6 

003287 

10F 1 

C606 




00328b 



* 

LOC 

XMS Y 

003289 


028A 

XMS Y 

EUU 

X * 028A * 

003290 



# 

ST 

63 

003295 

1 OF 2 

D73F 




003294 



* 

LD 

52 

003297 

1 OF 3 

D634 




003298 



* 

SEND 

0 

003299 

1UF4 

bD30 




003302 



* 

LD 

63 

003303 

10F 5 

40D6 




003306 



* 

DEC 

DO 

003507 

loFb 

3F5A 




00330b 



* 

bZT 

LP1AA 

003309 

1 OF 7 

5D2 7 




003312 



* 

WAIT 


003313 

10 F 8 

OFbD 




003314 

10F9 

3100 




003315 



* 

b 

XMS Y 

003318 

10FA 

20EE 




003319 



He 

LOC 

LP1ABD 

003320 


029C 

LP1ABD 

EUU 

X * 029C * 

003321 



* 

LD 

»DMA 

003322 

lOFb 

bD30 




003323 



* 

SEND 

0 

003324 

10FC 

AOBD 




003327 

1 OF U 

3040 




00332b 



* 

bLCT 

LPiAb 

003329 

10FL 

Dt63 




003332 

10F F 

2705 




003333 



* 

LOC 

LP1AA 

003334 


02 Ab 

LP1AA 

EUU 

X * 02A6 * 

003335 



* 

WAIT 


003336 

1100 

bD31 




003337 



* 

b 

LP1ABD 

003338 

1101 

0020 




003341 



* 

LOC 

LPiAb 

003342 


02 Ab 

LP1AB 

EUU 

X * 02AB * 

003343 



* 

WAIT 


003344 

1102 

F1BD 




003345 

1103 

3100 




003346 



He 

LD 

= X * 04 * 

003349 

1104 

C604 




003350 



* 

SEND 

0 

003351 

1105 

BD30 




003354 



* 

WAIT 


003355 

1106 

40bD 




003356 

1107 

3100 




003357 



# 

LD 

= X 1 19* 

003360 

110b 

C619 




003361 



# 

SEND 

0 

003362 

1109 

BD30 




003365 



* 

WAIT 


003366 

110A 

40BD 




003367 

110b 

3100 




00336b 



* 

SEND 

0 

003369 

HOC 

BD30 




003372 



# 

WAIT 


003373 

HOD 

40BD 




003374 

110E 

3100 




003375 



He 

LD 

= X» 19* 

003378 

11 OF 

C619 




003379 



# 

SEND 

0 

003380 

1110 

BD30 




003383 



* 

LOC 

LP 1 AC 1 

003384 


02C9 

LP1AC1 

EUU 

X'02C9» 

003385 



# 

NOP 


003386 

1111 

4001 




003387 



* 

LD 

30 

003390 

1112 

D61E 




003391 



* 

OUT 

2 

003392 

1113 

BD30 




003395 



He 

WAIT 


003396 

1114 

28BD 




003397 

1115 

3100 




003398 



* 

GNb 


003399 

1116 

BD31 




003400 



* 

LOC 

N0P1 

003401 


02D5 

NOP 1 

EUU 

X * 02D5 * 


PAGE 51 

LOOP AT LINE ADAPT (XMIT) 

LINE: CONFIG. 

SYNC FLAG 

SYNC CHAR. 

SIX TIMES 

XFER 


PAD 1 EOM 

PAD 2 

PAD 3 

TURN OFF XMU ,C2 FOR LX C6 FOR LA TEST 



TITLE TCSC1*»REV B» TERMINBL IEBT 


PAGE 52 


003402 

003403 

1117 

20bl> 

# 

WAIT 

003404 

1118 

3100 


NOP 

b NOP 1 

003403 

003406 



* 

* 

003407 

003410 

1119 

0120 

* 

NOP 

003411 

111A 

FA01 



0034 IL 
003413 


11 IB 

ADli 

tOU 2> 




TITLE. TOSCl*«RtV b» TtRMINbL ItST 


OU 34 1 *+ 

003413 

003416 

003417 

003416 

003419 111b 

003420 

003421 0400 

00342*1 

003423 111b 0634 

003426 

00342 f 1UC b030 
003 h30 

0O3a31 1110 3006 

0034 34 

003433 lilt 2260 
003436 111F 3036 

003h 3v 

00344*: 1120 0600 

003443 

003444 1121 d030 

00344? 

00'34 4d 1122 2460 

003431 1123 3024 

00345*1 

003453 1124 0614 

00345b 

003457 1125 d030 

003460 

003461 U2o 2601 
00346*. 

003463 1127 bD31 

003464 

003465 lko 2060 
003466 1129 3100 

00346 ? 

003406 04 1L 

003469 

0034?o 

003471 112A 0101 

003472 

003473 

003474 112b 01C6 

003477 

003476 1120 OObD 

003481 1120 3050 

003482 

003483 112L b031 

003484 

003485 112 F 0006 

003486 

003489 1130 0A60 

00349*: 1 131 3050 

003493 1132 

003494 

003495 1132 6031 

003496 

003497 1133 0001 

003496 

003499 

003 300 0433 

003501 

0O3302 1134 01 DO 

0 0 3 5 0 3 1 135 30AO 

003504 

003507 1 136 0471- 

00350a 

003509 1137 6030 

003512 

003^13 113a 50bb 

003514 1139 3100 

003515 

00351d 113m Ot 63 
0o3519 113b 2702 

003520 

003523 113v. 20 th 

003524 

003525 0444 

003626 

003529 1130 067F 

0 0 3 5 3 0 

003531 113t b030 

003534 

003535 113h 50b0 

003536 1140 3100 

00353 / 

00353a 1141 bU30 

003541 

003542 1142 5006 

003545 

003546 1143 OObO 

003549 1144 3026 

003530 

003^53 II 43 0630 
003354 

00355/ 1146 04bh 

003356 

003561 114? 0730 

003362 

003563 1 1 4 a b031 

003564 

003363 1149 2060 

003366 114m 3100 


/ 

* 

* CHANNtL PROGRAM TO wKITt J ATA 

* 


* 

TTA 

* 

TTAA 

* 

GRG 

tuU 

LUO 

tuu 

LD 

X»400» 

$ 

TTaA 

x»0400» 

52 

# 

OUT 

4 

# 

LO 

34 

* 

uUT 

6 

* 

LO 

= X*0» 

* 

uUT 

1 

* 

UUT 

1 

* 

LO 

20 

* 

uur 

2 

* 

NUP 


* 

GNb 


* 

wAIT 


1 T AO 

* 

* 

LUO 

tuu 

NUP 

NUP 

T TAG 

A 1 0411 * 

* 

* 

nOP 

LO 

= X • uO' 

* 

StNO 

2 

* 

WAIT 


* 

LO 

X'uA* 

* 

StNO 

2 

TTA1 

* 

tuu 

WAIT 

S 

* 

NUP 


* 

He 

TTb 

He 

NUP 

LOO 

tuu 

LO 

TTb 

A * 0433 * 

* 

ANO 

= X»7F • 

* 

StNO 

2 

* 

WAIT 


* 

6L0T 

T TO 

* 

b 

TTd 

* 

T TO 
* 

LUO 

tuu 

LO 

T1 0 

X*0h44* 

=a» n » 

* 

SlND 

2 

He 

WAIT 


He 

StNO 

2 

He 

LU 

= x»oo» 

* 

UUT 

2 

* 

LO 

X • 30 • 

* 

ANO 

= X • 6h ' 

He 

ST 

X » 30* 

He 

GNb 


He 

WAIT 



PAGt 53 

TO A TtRMNAL 

bAuO KAIL 

CHAR#OQNF1GUkAT IUn 

OLtAK OUT XhiT LR 1 

LU 20 L1ML CONTROL ,XMlT UN 


OR 

L/F 


STRIP tXTRA uIT In $ SION 


PAO 










~ 

TITLE TCSCi 9 ' 

' kLV b« 

TEKFilNbL 1 to! 



PAGE 54 


003^67 



/ 





0 0 3 0 6 b 



* 





003369 



* CHANNEL PkuGRAM ID kLCtlVt DATA 

FROM A IEkMINAl 


00357u 



# 





003371 



ik 

UkG 

X * 400 * 



0033 74 


114b 

K FA 

tuu 

S 


M % 

003373 



* 

LUC 

HTaA 



0033 74 


0200 

KTAA 

tuu 

X*0400» 



003373 



* 

LO 

20 



00357b 

114o 

6614 






003379 



* 

UuT 

'4 



003380 

114C 

bO 30 






0U3383 



* 

Lb 

2 



003384 

1140 

3006 






00338 7 



* 

UuT 

6 



00338b 

1 142 

02 bb 






603591 

1 14F 

303b 






003394 



Ik 

LO 

30 

IK TlM FLAG 


0U3393 

1130 

Obit 






003396 



Ik 

bZF 

LKAA 



003397 

1131 

5D26 






003600 



* 

1 N 

1 

CLtAk LK 1 


003c0i 

113c 

42b0 






003604 

1153 

3004 






003603 



* 

NUP 




0u3o0o 



* 

LO 

=X»C2» 



0u3o07 

1154 

01 C 6 






0u3o 10 



ik 

UUT 

4 



003o 11 

1133 

CebO 






003c 14 

11 5c 

30co 






003c 1 3 



Ik 

rtAIT 




003616 

1157 

b03 1 






003617 



ik 

LUC 

KTb 



00361b 


021 b 

KTb 

tuu 

X*04lb» 



003619 



* 

WAIT 




003620 

115b 

OObo 






003o21 

1 1 5 9 

3100 






00362c 


115 A 

KTA1 

tuU 

S 



00bo23 



# 

KtCV 

2 



u03c24 

115a 

bo 30 






0 0 3 o 2 7 



ik 

bT 

60 



00362b 

11 5d 

7007 






003631 



ik 

AND 

= X» 7F • 



003632 

115C 

3CC4 






003633 



ik 

ST 




003c3c 

1 1 5 15 

?F b b 






003637 

115L 

30CO 






00363b 



ik 

bLCT 

KtXHl 



003639 

1151- 

0E63 






003o42 

1160 

4 731 






003c43 



ik 

Lb 

= X»C1» 



003o4c 

lie! 

C 6 C 1 






003647 



ik 

OUT 

2 



003648 

1 16C 

6030 






003o5i 



ik 

LO 

60 



00363c 

1163 

2806 






003c3 3 


1164 

LNk 

tuu 

$ 



00363c 



ik 

AND 

= X • 7 F * 


, 'f \ 

003657 

1164 

3CC4 






003660 



* 

C 

2 b 

00 FQK KT TtoT Fp FO* CK 1tST 

" \ _ y 

003661 



*T 6LC1 

T t 1 »X * 96• 

LOAA,b 


0 0 3 c 6 c 

i 1 o5 

7 F 9 6 






003665 

1166 

1C10 






00366c 

116 / 

9741 






003667 



ik 

btF 

k 1 b 



003c6b 

1 16 b 

9641 






003671 

1169 

C600 






003672 



ik 

LO 

28 



003673 

1 1 6 A 

061 C 






0 0 3 c 7 6 



ik 

SI 

60 



Gu36 79 

116b 

07 3 C 






0o3c80 



ik 

Lb 

= X»C1 • 



003683 

116C 

C 6 C 1 






003684 



ik 

UUT 

2 



003683 

11 oO 

UD30 






003688 



ik 

NUP 




003689 

1161 

2801 






003690 



ik 

GNb 




003691 

1168 

b03 1 






003694 



ik 

LUC 

WT4 



003693 


024b 

WT4 

tuu 

X»044b* 



003694 



* 

WAIT 




003c93 

11 70 

20 b 0 






003696 

1171 

3100 






003c97 



* 

NOP 




00369b 



* 

b 

W T 4 



003C99 

117 c 

0120 






00370c 



* 





003703 



* 

LUC 

LKAA 



003704 


0251 

LKAA 

tuu 

X* 025 1 1 



003703 



* 

Lb 

= X•Cc * 

KtCV UN 


003706 

1173 

FAC 6 






003709 



ik 

UUT 

2 



003/10 

1174 

CebO 






003713 

1175 

3028 






003714 



* 

LUC 

LKAO 



003713 


0256 

LKAO 

LuU 

X * 0456 * 



003716 



ik 

WAIT 




003717 

1176 

b031 






00371b 



ik 

KtCV 

0 



003719 

117 7 

OObO 






00372c 

11 7b 

3060 






003723 



# 

C 

=X»OD» 



003726 

1179 

8600 






003 727 

11 7 A 

1097 






00372b 



ik 

btF 

LKAO 



003729 

11 7b 

4196 






003730 

11 7C 

4126 






003733 



ik 

ST 

♦ Oh A 

XFtk 


003734 

1170 

FlbO 





a 

003733 

117E 

30C0 





m 

003736 



ik 

b 

KTb 



003739 

117F 

20 b 1 








I irLt TLbCi,»KLV b» TLKMlNbL ILol PAUL 5b 


0U3 /40 



* 

LUO 

KtXHT 


003741 


02 6 A 

KLXH! 

LgU 

X'OcbA* 


003 742 



* 

LD 

60 


003 74b 

1160 

0630 





00374c 


1181 

KTA2 

tou 

b 


003 74 7 



* 

bLND 

2 


0u3 74c 

1161 

0030 





003751 



* 

A AIT 



003 75c 

1162 

500D 





003 753 

1163 

3100 





003 7 5*+ 



* 

LD 

16 


003757 

1164 

0610 





003 7 5c 



* 

UK 

= X 1 02 1 

SLT KANGL LXnAUST FLAG 

003 761 

1165 

0A02 





00376c 



* 

bT 

16 


003 765 

1166 

0710 





003 76o 



* 

LD 

=X»00' 


003769 

116 7 

L600 





Uuo 770 



* 

UUT 

2 

TUKN UFh KtOv*XMIy 

003771 

1166 

O030 





003 774 



* 

0 

LX f 


003 775 

1 1 69 

2820 





00377b 



* 

LOO 

KTt 


003 7 79 


U27F 

KTL 

tuU 

X»02 7F ' 


003760 



* 

LU 

60 


Oo3761 

lidA 

lbD6 





003 7 6*+ 


1 icb 

KT A3 

tuU 

$ 


003 765 



* 

btND 

2 


003 766 

1160 

30bD 





003 769 

1160 

3050 





003 790 



* 

wAlT 



003 791 

1180 

bD3 1 





003 79c 



* 

0 

28 


003 793 



* T 6 L L T 

by Il 1 1 x* 96 • 

LDAA,D 

003794 

1180 

0096 





Ou3 79 7 

1 1 8 F 

1010 





003 796 

1190 

9741 





003 799 



* 

bLF“ 

KTtl 


003600 

1191 

9641 





003603 

1 1 92 

2619 





0C3o04 



* 

LD 

30 

LK TLbT FLAG 

003607 

1193 

D6lt 





0o3b0c 



* 

bZF 

LX! 1 


003c0v 

119*+ 

5D26 





003o lc 



* 

LD 

= X * 00 • 


003613 

1195 

1 F 06 





003b16 



* 

UUT 

2 


003617 

1196 

OOBD 





003620 

1197 

3026 





003621 



# 

LUO 

LX i 


00 3,6 2 2 


029A 

lxt 

LuU 

X 1 02 9A * 


003c23 



* 

GNb 



003624 

1198 

0031 





003625 



# 

LUO 

WT2 


003626 


0290 

WT2 

LUU 

X»029D* 


003627 



* 

wA 11 



003o2o 

1199 

20BD 





003o29 

119a 

3100 





003630 



* 

NOP 



003631 



* 

b 

W 1 2 


00363c 

119o 

0120 





003635 



* 

NOP 



O03c36 

1190 

F AO 1 





003637 



* 

NOP 



003b3b 



* 

NOP 



003639 

1190 

0101 





003640 



* 

NOP 



003c41 



* 

NOP 



003642 

ll9t 

0101 





003643 



* 

NOP 



G03o4*+ 



* 

LUO 

KTtl 


003645 


02 A9 

KTL1 

LgU 

X»02A9» 


003646 



* 

LD 

=X'C2» 


003647 

119P 

0106 





OU 3 b 5 0 



* 

UUT 

2 


003651 

1 1 AO 

02BD 





003b54 

1 1A1 

3026 





003655 



* 

WAIT 



00 3 6 5 b 

1 1A2 

bD31 





003o57 



# 

b 

Kit 


0u3b5b 

11 A3 

0020 





003661 



* 

NOP 



003662 

11 A*t 

0001 





003663 



* 

LUO 

tXI 1 


003664 


02b4 

tXT 1 

LuU 

X »02b4» 


003665 



* 

UUT 

1 

PAD2 

003666 

1 1A5 

bD30 





003669 



* 

WAIT 



003o70 

1 1 Ac 

24dD 





003671 

11A7 

3100 





003672 



* 

UUT 

1 

PAD 3 ' 

003673 

1 1 Ac 

BD30 





003o76 



* 

WAIT 



003677 

11A9 

24BD 





003676 

11 AA 

3100 





003o 79 



* 

LD 

=X»00« 


0U366C 

X 1A t> 

0.600 





003683 



* 

UUT 

2 


003684 

11 aO 

BD30 





003687 



* 

b 

LXT 


003686 

1 1 AO 

2820 





0O3691 



* 

hUP 



003692 

11*L 

0301 





003c9 3 



* 
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003694 



/ 




003b93 



* 




003b96 



* 




0 0 3 o 9 7 



* 




003696 



^CHANNEL PROGRAM POk SYNCHRONOUS 

TERMINAL 

003699 



* 




003900 



* 

ORG 

X * 500 * 


003901 


11AP 

TTS 

ECU 

$ 


003902 



* 

NOP 



003903 



* 

NOP 



003904 

X1AF 

0101 





UO3905 



Hk 

NOP 



003906 



# 

NOP 



003907 

llbO 

0101 





003906 



* 

NOP 



003909 



* 

NOP 



003910 

llol 

0101 





003911 



* 

NOP 



003912 



* 

NOP 



003913 

iib2 

0101 





003914 



*VPIN1T 




003915 



* 

LOG 

VIPNIT 


003v16 


050b 

VIPNIT 

EQU 

X * 0308 * 


003917 



* 

LO 

=X»C6» 

7 BIT QUO ANO LRG 

003926 

iib3 

C6C6 





003921 



He 

ST 

34 

XMIT CONFIGURATION 

003924 

1 lD4 

0722 





003923 



Hk 

OUT 

6 

LR6 

003926 

1 ib5 

b030 





003929 



* 

LO 

sX» 16* 

SYNCH CHAR 

003930 

11 b6 

36C6 





003933 



He 

OUT 

4 

LR4 

003934 

11 b7 

16b0 





003937 

libb 

3030 





00393b 



*VPXTOH 




003939 


i l b9 

0TS1 

EgU 

S 


003940 



ik 

LUC 

VPaIOP 


003941 


0514 

VPXTOP 

EOU 

X ' 03 14 * 


003942 



ik 

LO 

=X»C9» 

DATASET GUNTkOL DjreCT GONECT 

003943 

1 ib9 

C6C9 





063946 



* 

ST 

20 

STORE DATA StT CONTROL 

003949 

UbA 

0714 





003950 



Hk 

OUT 

2 

LR2 TURN ON FRANSmIT BIT 

003951 

libD 

b030 





003954 



*VPXSEG 




003955 



* 

LOG 

VPASEG 


0 0 3 9 36 


051b 

VPXSLG 

EuU 

X • 03 1 b 1 


00395 7 



* 

LO 

= X» 16» 

SYNCH CHAkACIEK 

00395c 

ilbL 

26C6 





003961 



* 

OUT 

1 

SEND IT 

003964 

11 bO 

16b0 





003963 

11 dL 

3024 





003966 



* 

IN 

5 


003967 

11 dP 

b030 





0039 70 



* 

sT 

31 

LR5 

003971 

1 ICO 

1407 





003979 



* 

LO 

= X * 16 * 


0039 73 

11 C1 

1PC6 





00397b 



* 

WAIT 



003979 

11C2 

16 b0 





003980 

1 1 C3 

3100 





003981 



He 

OUT 

1 

2ND SYNC 

003984 

1 1C4 

b030 





003985 



Ik 

WAIT 



003986 

1 1C3 

24b0 





00398 7 

UC6 

3100 





00398b 



He 

uuT - 

1 

3R0 SYNCH 

003989 

11C 7 

bO 30 





003992 



Hk 

WAIT 



003993 

UCb 

24b0 





003994 

11C9 

3100 





003995 



Hk 

UUT 

1 

4TH SYNCH 

003996 

1 ICa 

b030 





003999 



Hk 

LO 

= 0 


00*000 

1 ICd 

24C6 





004U03 



He 

ST 

33 

CLEAR CkC STuRAGE 

00400* 

11 CC 

0007 





00400 7 



Hk 

WAIT 



004008 

ilCO 

2300 





004009 

11 CL 

3100 





0U401U 



* 

LO 

= 1 

SOH 

004ul3 

lice 

C601 





004014 



He 

SEND 

2 

SEND SOH W X T n PARjty 

004U13 

1 iOo 

b03o 





004U 1 c 



* 

WAIT 



0U4U 1 9 

1101 

50b0 





004U20 

1102 

3100 





004021 



* 

LO 

28 

adoress 

004U24 

1103 

06 1 C 





0U4U2 3 



He 

5EN0 

3 

PARITY ANO LkC 

004U26 

1104 

b030 





004029 



He. 

wAIT 



004030 

Ho3 

38bO 





004031 

1 lOo 

3100 





004034 



Hk 

LO 

= X»u* 

NUL (STATUS) 

004033 

1107 

C600 





00*036 



* 

StNO 

3 


004037 

1106 

0030 





0 0 4 0 4 0 



Hk 

WAIT 



004041 

1109 

58bD 





00404*: 

lloA 

3100 





004043 



He 

LO 

= X * 20 * 

PCI (SPACE) 

004046 

1 10b 

C620 





004047 



Hk 

3EN0 

3 


00404c 

1 1 






004051 



Hk 

WAIT 



004o5c ' 

1100 

58bD 





00*u53 

110L 

3100 





004034 



Hk 

StNO 

3 

2ND SPACE ( Fl 2) 

004655 

1 lop 

b030 





00405b 



Hk 

wA 1 T 



004059 

1 1 to 

5bbO 





004060 

11 L1 

3100 
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PAUL 


5 7 



004061 



* 

LO 

= X*02» 

OU4U64 

11L2 

L602 




004065 



* 

bLNO 

3 

0u406b 

1163 

oD30 




0U4O69 



* 

WAIT 


004U70 

1 1 64 

3 8 bo 




00407i 

1163 

3100 




0 U 4 0 7 2 



* 

LO 

28 

004U 7 b 

11 Lb 

061C 




0 0 a 0 7 6 



* 

ano 

= X * 60 * 

0040 79 

116 7 

C460 




0U4u60 



# 

bT 

28 

0O4U83 

116b 

0 7 1C 




0Q4U84 



# 

C 

= X * 40 * 

00408 7 

1169 

6640 




004U86 

1 16A 

1097 




004089 



* 

661 

btuECT 

004U90 

1 ltD 

4196 




00409 i 

IlfcC 

412 7 




004O94 



* 

C 

= X • 20 • 

004093 

lltl) 

3586 




004096 

116L 

2010 




004099 

lltF 

9 741 




004100 



* 

13 tT 

LMFRAM 

004 i 0I 

11FU 

9b4 1 




00410a 

1 IF 1 

2700 




0 0 4 i 0 b 



*SnUTX 



004iOb 



* 

lOC 

bNOTX 

00 A 10 7 


03fab 

5N0TX 

tuU 

X • 0386 * 

00410b 



* 

LO 

9 L3P»A 

0041Oy 

1 i F 2 

b030 




004110 



# 

bLNO 

3 

004i11 

11F 3 

AObO 




00411 4 

11F4 

305 6 




004116 



* 

WAIT 


00411b 

11 F 5 

u03 1 




00a 11 7 



*VPX2 



00411b 



* 

LUC 

VPA2 

004119 


0 58 F 

VPX2 
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X * 0 3 6 F * 

004120 



* 

BLCF 
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004121 
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OODL 




004122 

11 F 7 

6326 




004123 



#EMP RAM 



00412b 



* 

LUC 

tMPkAM 

0041.27 


0393 

LMFRAM 
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X * 0593 * 

00412b 



* 

LO 

5X»03* 

004129 

ilFb 

F3C6 




004134 



* 

btNO 

3 

004133 

1IF 9 

03b0 




00413b 

11FA 

3056 




004137 



* 

wA 1 T 


00413b 

11 F13 

b03 1 




004139 



* 

LO 

33 

004140 

11FC 

0006 




Ou4 143 



* 

AND 

sX • 7F • 

00414A 

11 Fu 

23C4 




004147 



* 

btNO 

2 

00414b 

1 1 F 6 

7F bO 




004151 

11FF 

3050 




004154 



* 

WAIT 


004153 

UOO 

b03 1 




004154 



* 

LD 

28 

004155 

1201 

0006 




004158 


1202 

bLLCHR 

too 

$ 

004159 



* 

c 

= X • 60 • 

004160 

1202 

ICbb 




004 163 

1203 

6010 




004164 

1204 

9741 




004165 



* 

bLT 

bLLCTl 

004166 

1203 

9641 




004169 

I 4 O 6 

271b 




004170 



* 

b 

V P A 6 0 i 

004173 

12 07 

4020 




004 1 74 



*bLLtCT 



004173 



* 
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004176 
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LO 
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004180 
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* 

bLNO 

3 

004184 
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* 
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00418b 



* 

LO 
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00a 19i 
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2 
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B030 
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Ik 
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004403 



* 

LO 

29 

004 t Ob 

1211 

0610 
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* 

bT 

28 
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# 
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004219 

1214 
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* 
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1213 

3007 




004426 



* 

JUMP 

VPAbbO 

004227 

121b 

1C3F 




004430 

1217 

F F 49 


oc 

VPXbLG-X»0502« 

004231 



*VPXLOT 



004234 



* 

LOC 

VPXtOT 

004233 


0502 

VPX60T 

tuu 

X * 0302 * 

004234 



* 

LO 

=X*16* 

004237 

121b 

C616 





bTX 

ADORbbb 

bTklP FIVE LoBb 

bELLU AODkEbb 
bELLCI MEbG 

POL MbG 
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GE T MURt 

LTX 

bTRIP PARITY 

THib CQOE MODIFIED TO NOP FUR NON POLL OP 
NOP TUR NON POLL OPERATION 
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004236 
004439 
004242 
004243 
004c 44 
004245 
004^46 
004249 
0044 50 
004451 
004254 
004*53 
004256 
004457 
004456 
004259 
004460 
004*63 
004464 
004265 
004466 
004469 
004270 
004271 
004274 
004475 
004476 
004477 
004480 
004281 
004482 
004485 
004466 
004487 
004490 
004291 
004492 
004293 
004294 
004 c 95 
004296 
004497 
004496 
004601 
004302 
004305 
004306 
004507 
004306 
004309 
004312 
004313 
00 h 5 14 
004315 
004316 
004319 
00452U 
004323 
004324 
004325 
004326 
004329 
00433u 
004331 
004334 
004335 
004336 
004339 
00434U 
004343 
004344 
004345 
004346 
004347 
00435u 
004351 
004354 
004355 
00435b 
004357 
0U4360 
004361 
004562 
004363 
00436O 
004367 
004370 
004371 
004374 
004375 
00437o 
004377 
004380 
004361 
00438 m 
004385 
O0436o 
004389 
004390 
004393 
0Uh394 
004395 
004396 
004397 
004596 
004399 
004<+00 
004401 
004402 
0U4h03 
0 U 44 04 
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1219 
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24BD 

3100 
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b030 

1210 

l*lt 
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1221 

24b0 
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3100 
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0030 

1*27 

1.22b 

24b0 
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12 2b 
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0101 

1*2L 
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0006 
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1431 

7 F 00 
3024 
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0031 

1433 
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OOoO 

3024 

1235 

0031 

1436 

0006 
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1236 

1239 

1A86 
0010 
9 741 
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5027 


123b 

123b 

1006 
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1230 

6 AOO 
3028 

1230 

0714 

143F 

0031 

1240 

0006 

1241 

1242 

1243 

1066 

0010 

9741 

1244 

5027 


0620 

1445 

0 706 

1446 

3007 

124 7 
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1 C3F 
FEE 7 


0634 

1449 

0614 

1 24A 

0 4 F A 

1 24o 

0714 
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0030 

1 2 40 

2801 

1 2 41 

0031 


0641 

124F 

1450 

20 bo 
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1251 

0120 
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OUT 
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* 

WAIT 




* 

OUT 

1 

2ND SYNCH 


# 

WAIT 




* 

OUT 

1 

XMIT SRD SYNUT 


* 

WAIT 




* 

OUT 

1 

XMIT 4TH SYN^H 


* 

WAIT 




* 

LO 

= 4 

LOAD EOI CHAk. 


# 

OUT 

1 

XMIT NO PARI IY 


* 

wAIT 




* 

LO 

= X* 7F ' 

LOAD RAD CHAa• 


* 

OUT 

1 

XMIT - NO PAaITY 


OT 52 

* 

EuU 

LO 

$ 

=X»CO» 

DA1A SE1 CONiROL BITS 


* 

NOP 




* 

* 

NOP 

NOP 

** TEMP** 

TURN UN RECEIVE EARLY 


* 

WAIT 




* 

LO 

~X* 7F • 

PAD CHAR 


* 

OUT 

1 

2ND PAD ChAR. REQUIRE^ 

OY TERMINAL 

* 

WAIT 




* 

OUT 

1 

.. THREE PADS REQUIRED TO 

FLUSH USART 

* 

WAIT 




* 

LO 

26 

POLL KIT FLO 


# 

C 

= X»0» 



* 

o2T 

UUi T 



# 

OT 04 

* 

Euu 

LO 

* 

= X • 8 A • 

TURN OFF RTS,XMIT,AND TURN UN RECV 

* 

OUT 

2 



* 

ST 

20 



* 

WAIT 




* 

LO 

27 



* 

C 

= 0 



* 

bZT 

QUIT 



* 

POL 

* 

LOC 

LoU 

LO 

POL 

X • Oo2D • 

61 

GET POLL ADOK 


* 

ST 

28 



* 

JUi v iP 

VPXSEG 

GO PULL AGAIim 


* 

UUI1 

* 

OL 

LOC 

LOU 

LO 

VPXSEG-X•0634* 

OUl i 

X * 0634 1 

20 

LCT 20 


* 

ANO 

= X • FA • 

KILL XMIT BIT 


* 

ST 

20 

RESTORE INTO LCT 20 


# 

OUT 

2 

LR2 - TO KILb XMIt bjT 


* 

NOP 




* 

oNb 




* 

wT 

* 

LUC 

LOU 

WAIT 

WT 

X * Oo41 * 



* 

* 

NOP 

0 

WT 




* 
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jell 19NIWM11 »9 A9x,M0501 90111 


65 lOVd 




TITLE TCSC1♦• REV B• TtRMINBL TEST 


00466b 



* 

ST 

58 

004671 

1284 

P73A 




004672 



* 

JUMP 

VPRGNB 

004676 

1285 

3F00 




00467b 



* 

LOC 

SOH 

0046 7 7 


026 7 

SGH 

EQU 

X•0267 * 

00467b 



* 

C 

=X*01» 

004679 

1286 

PA86 




004682 

1287 

0110 




004683 

1288 

9741 




004684 



* 

BEF 

MOkSYN 

004686 

1289 

9641 




004688 

128A 

26 




004689 



*CLLRC 



004690 



* 

LOC 

CLLRC 

004691 


0270 

CLLRC 

EQU 

X * 02 70 1 

004692 



* 

LO 

= 0 

004696 

1280 

C600 




004696 



* 

ST 

3 

004699 

lcbC 

0703 




004o00 



^NORMAL 


004o0i 



* 

LOC 

NORMAL 

004602 


0274 

NORMAL 

tou 

X • 0 2 7 4 * 

004603 



* 

RECV 

3 

004o04 

1280 

bD30 




004o0 7 



* 

WAIT 


004b0b 

128L 

7 8 BP 




004o09 

1 2 8F 

3100 




004oI0 



* 

ANO 

= X*7F» 

004o13 

12 90 

C47F 




004614 



* 

ST 

♦ 

004616 

1291 

BD30 




0 0 4 6 16 



* 

ST 

5 7 

004o17 

1292 

C0P7 




004o20 



* 

C 

=X»04* 

004o2i 

1293 

3986 




004624 

1294 

0410 




004628 

1295 

9741 




004o2 6 



* 

BEF 

STa 

004627 

1*196 

9641 




0 04o 3 0 

12 9 7 

2605 




004631 



* 

ST 

58 

OOho 34 

1298 

P73A 




004o38 



* 

JUMP 

VPRGNB 

004638 

1299 

3F00 




004639 



* 

LUC 

STX 

004o40 


028F 

ST X 

EQU 

X»028F« 

004o4l 



He 

C 

~X•02 * 

004642 

ic9A 

0286 




004o4 8 

1290 

0210 




004646 

129C 

9741 




004647 



He 

BET 

PRIERB 

O0464o 

129P 

964 1 




004o 61 

1 *;9L 

2717 




004662 



He 

C 

= X * 03 • 

004666 

1 29F 

8603 




004 6 6 6 

1 2 AO 

1097 




004657 



He 

bET 

PRUTER 

00466b 

12 AI 

4196 




004669 

1 2 A*; 

4127 




004o6*. 



* 

C 

=X'16* 

004663 

1 2 A3 

7986 




004666 

12A4 

1610 




004667 

12 AS 

9741 




00466b 



He 

titF 

SURI1 

004669 

12A6 

9641 




00467*: 

1 *i A 7 

260F 




0u4o7 3 



* 

CCH 

• UNDO 

004674 

12 Ab 

bD31 




004675 



* 

b 

1 uR IT 

004676 

12A9 

6020 




004o79 



He 

LOC 

PRTEKB 

004680 


02 AF 

PRTEkb 

EqU 

X ' 02AF• 

004681 



* 

D 

PRUTER 

004682 

12 Aa 

0A20 




004 o 8 5 



* 

LOC 

STACHR 

004686 


0201 

STACHR 

EuU 

X»02bi • 

004687 



He 

LO 

5 7 

004688 

12AB 

69D6 




004691 



He 

ST 

58 

004692 

12 AC 

3907 




004695 



He 

b 

NORMAL 

0G4o96 

I *; Au 

3A20 




004699 



He 

LUC 

EASTCH 

004 ? 00 


0207 

LAsrch 

EQU 

X•02B7• 

0 0 4 7 0 1 



He 

b 

GNbI 

00470*1 

12 At 

0020 




004705 



*STORIT 



004 706 



He 

LOC 

ST UK IT 

004/07 


0209 

STOkll 

EqU 

X * 0209 * 

004 70b 



He 

LO 

30 

064 709 

12AF 

5F 06 




004 71*. 



He 

OtC 


004 7 13 

12bO 

1E5 A 




004714 



* 

ST 

30 

004717 

1 4lOi 

07 1 E 




004 718 



He 

C 

= 2 

00472i 

12b2 

8602 




004722 

1203 

1097 




004723 



He 

BET 

STACHR 

004724 

1204 

4196 




0U4726 

1 *:b5 

412 7 




004 728 



He 

04 F 

NOkMAE 

004729 

1206 

LA50 




0U4 7 3*. 

1 2 o7 

26AA 




004733 



*VPRNXT 


004734 



* 

LOC 

VPKNXT 

0 U 4 736 


02CA 

VPKNXT 

EQU 

A * 02CA • 

004736 



He 

ktCV 

3 

004737 

1208 

6030 




004 740 



He 

WAIT 


004741 

12b9 

7800 




004 7 4*: 

12ba 

3100 





PAGE 60 
FOR INPUT LCI 

PC LLS(X « 3F 1 ,8)♦LRs<VPKgN6-X*0267* ,8) 

5DH 


CLtAR EKC RESIDUE 

PARITY AND LKC 

STRIP PARITY 


Q FRAME 
FOR INPUT LU 

PC LLS(X•3F ',8)*Lkj(VPR gNB-X»028F * ,8) 

ST X 

STX FUUNP AT WRONG PLACE 
ETX 

ETX FUUNP PRuTOCALL tRkUR 
SYNC AFIEk SjH 

CALC FOR SYNl 

SHQRTtR BRANCH FOR DLCP COPES 

GET SI A CHAR. 

FOR INPUT LU 

LU 30 CONTAIN VALUE 4 


( 


w 










UlLt TCSCl,* 

RlV b* TtKHINbL rtbT 




PAUL 61 

004 743 



* 

AND 

= X • 7 P • 

STRIP PARITY 

00474o 

Ubb 

0471- 





004747 



He 

31 

* 


UUA /4o 

i4bC 

b030 





004 / 49 



* 

C 

= X•02 * 

ST X 

JT K 0u4/5u 

1 2od 

CO 6 6 





m 004733 

1 1DC 

0210 





m 004 / 3 ^ 

14bP 

9 74 1 





004 / 3 3 



* 

DtP 

PRUTtK 

PROTCALL tkkuR 

004/30 

12 Co 

9641 





004 /39 

14C1 

2630 





0U4 760 



* 

ST 

23 

STX PLAG 

004/63 

1202 

0717 





004 /6 h 



*MURChk 




004763 



* 

LUC 

MUkCHK 


004 /66 


02t0 

MORCHR 

LoU 

X 1 02tO * 


004/67 



* 

KtCV 

3 


004766 

UC3 

D03 0 





004/71 



* 

hA 1 T 



004 / 7 4 

12Ca 

7 6b0 





004 / 73 

12C3 

3100 





004 / 7h 



* 

AND 

=x» /p * 

STRIP PARITY 

004 7 77 

12 Cb 

C47h 





004776 



* 

ST 

* 


004 / 79 

12 C / 

b030 





004 /60 



* 

bLCT 

KNutR 


004761 

UCb 

COOL 





004 /84 

12C9 

632 7 





004/63 



* 


= X•03 * 

ETX 

0 u 4 7 6 6 

1 c CA 

1 bb6 





004769 

14Cd 

0310 





004 /90 

12 Co 

9 74 1 





004 /91 



* 

bt P 

PiU»\ChK 


004 79<: 

l4Ci> 

9641 





004793 

UCl 

4 6 L 6 





004/96 



* 

KtCV 

3 

RtCtIVt LRC 

004 /9 7 

UCP 

bO30 





004600 



* 

WAIT 

f PuK 

SYNCH 

004601 

1400 

7 6bD 





004&04 

1201 

3100 





004603 



* 

AND 

= X* 7P» 


004606 

1404 

047 h 





00460 / 



* 

ST 



004c0o 

1203 

b030 





004609 



* 

LO 

3 

READ LKC RtSiOUt 

004o lu 

1404 

0006 





004o 1 3 



* 

AND 

= X•7P 1 

STRIP PARITY 

004ol4 

1203 

0304 





004617 



* 

02. T 

VPKXIT 


004616 

1206 

7P3D 





0U4 o 2i 

1 4 07 

2716 





004626 



*RN0tk 




004623 



* 

LUC 

RNutK 


004624 


U30A 

KNOtk 

tou 

A 1 030A • 


004e23 



* 

LO 

16 


004626 

1206 

0610 





004629 



* 

UR 

= X * 02 • 

SET RANGE EXnAUST FLU 

jg 004 O 3c 

1409 

OA02 





m 004633 



* 

SI 

16 


W 004<j3o 

120A 

0/10 





^ 004637 



* 

b 

GNul 


004&40 

1 20d 

2006 





00464i 



*bADlkC 




004642 



* 

LUC 

bAOLRC 


004643 


0312 

bAOLRC 

tou 

X • 03 12 * 


004644 



* 

LO 

17 

LC1 1/ 

0U464 7 

12 






004646 



* 

UR 

=X»40» 

PARITY AND LkC ERROR 

004631 

14 00 

CA40 





004634 



* 

ST 

17 


004633 

120t_ 

0711 





O04o 3 6 



* 

LUC 

GNbl 


004 o 37 


0316 

GNbl 

tou 

X * 03 1 8 * 


00463b 



* 

b 

VPKGNB 


004661 

12UP 

2027 





004664. 



*PR0T tR 




004663 



* 

LUC 

PRO T ER 


004664 


031A 

PRUTtR 

tou 

X«03lA« 


004663 



* 

LU 

16 

LCT 16 

004666 

12 tO 

0610 





004669 



* 

UR 

=X • 04 • 

bAo PROIO CAlL ERROR BIT 

0046 1c 

1 4 t 1 

CA04 





004673 



* 

ST 

16 


00467b 

1 4 1 4 

0/10 





00467 / 



* 

b 

VPKGNB 


004660 

1 2 L 3 

20 1 P 





004661 



* VPKX1T 




004662 



* 

LOC 

VPKXIT 


004683 


0322 

VPKXIT 

tou 

X • 0322 * 


004684 



He 

KtCV 

2 


004683 

1 2 14 

b030 





00468b 



# 

WAIT 



004689 

12t3 

70b0 





004690 

12t6 

3100 





004691 



He 

ST 

% 


004692 

12 t 7 

b030 





004693 



* 

bLCT 

VPKUNb 


004o94 

I2t6 

OOOL 





004693 

12t9 

6327 





004o9b 



* 

C 

=X»16* 

SYNC 

004699 

1 21A 

1266 





004902 

1 2tb 

1610 





004903 

12 to 

9/4 1 





004904 



* 

btT 

VPKXIT 


004903 

12 to 

9641 





004906 

12 LL 

27tA 





004909 



* 

c 

~X*04» 

LOT 

0049 12 

12 tP 

6604 





004913 

121 " 0 

109 7 





Jr 004914 



* 

btF 

VPkXIT 


■ 004913 

12F1 

4196 





m 004916 

I2F2 

4126 





004919 



*VPKGNb 







TITLE TCbC1 $ * 

REV b* TtRMINbL TEbT 




U04920 



* 

LUC 

VPRGNb 

004921 


0341 

VPKGNb 

LOU 

X * 0341 • 

004924 



* 

LO 

=X»CO» 

004923 

12F3 

L1C6 




004926 



* 

bT 

20 

004927 

1 2 F 4 

C0D7 




004930 



* 

UUT 

2 

004931 

12P5 

l4bD 




004934 

12 F 6 

3028 




004936 



* 

bT 

20 

004936 

12F7 

D71 4 




004939 



# 

GNB 


004940 

12Fo 

b031 




004941 



* 

LGC 

W T 3 

004942 


0340 

WT 3 

tou 

X•0340* 

004943 



* 

WAIT 


004944 

12P 9 

20b0 




004946 

12FA 

3100 




00494o 



* 

NUP 


004947 



* 

b 

WT3 

004946 

12Fb 

0120 




004951 



*bF b2 



004952 



* 

LUC 

bFb2 

004953 


0353 

bp b2 

LuU 

X • 0353 • 

004954 



* 

LO 

26 

004955 

UFC 

PA06 




00495b 



* 

C 

= 0 

004959 

12 Po 

1 Abb 




004962 

12FL 

0010 




004963 

1*FF 

9 741 




004964 



* 

bZT 

bPbl 

004965 

1300 

502 7 




00496c 


1301 

0! b 5 

Lou 

$ 

004969 



* 

LO 

sX • C9 • 

004970 

1301 

0AC6 




004973 



* 

our 

2 

004974 

1302 

C9bD 




004977 

1303 

3026 




00497b 



* 

bT 

20 

004981 

1304 

0714 




004984 



* 

WAIT 


004983 

1305 

b03 1 




004984 



*5F b 1 



004985 



* 

LOC 

bPbl 

004986 


0367 

bFbl 

LQU 

X • 0367 • 

00498 i 



# 

bP b 


004988 

1306 

oObO 




004989 

130 7 

3140 




004990 



* 

WAIT 


004991 

1308 

b031 




00499c 



* 

NQP 


004993 

1309 

0001 




004994 



# 

NOP 


004995 



* 

RLCV 

2 

004996 

1 30 A 

oibO 




004999 

,130b 

3070 




005O0O 



* 

WAIT 


Oo5uO1 

1300 

b03 1 




005002 



* 

C 

=X•16* 

006003 

1300 

00b6 




005006 

130L 

1610 




006007 

1 30P 

9741 




005O08 



* 

btp 

bPbl 

005009 

1310 

9641 




00501c 

1311 

26t9 




005013 



*MORbYl 


00501*+ 



* 

LUC 

MOKbYl 

005015 


037L 

MOKbYl 

LoU 

X•03 7L 1 

005016 



* 

RLCV 

2 

005017 

1312 

6030 




OU5020 



* 

WAIT 


005021 

1313 

70bD 




005O22 

1314 

3100 




005023 



* 

C 

sX»16» 

005026 

1315 

8616 




005u2 7 

1316 

1097 




00502b 



* 

bLT 

MOKbYl 

005029 

1317 

4196 




005030 

1318 

4127 




005033 



* 

C 

= X•04 * 

005034 

1319 

P 186 




0 0 5 o 3 7 

131A 

0410 




00503b 

131b 

974 1 




005039 



* 

bLT 

bPb2 

005u40 

1310 

9641 




005043 

1310 

2 7bD 




005044 



* 

C 

=X»01» 

005047 

131b 

6601 




005046 

13 IP 

1097 




005049 



* 

btP 

MOKbYl 

00505O 

13*0 

4196 




006051 

1321 

4126 




005054 



* 

LO 

= 0 

005055 

lb22 

0PC6 




O05o5b 



* 

bT 

3 

005059 

1323 

0007 




005062 



* 

RLCV 

3 

005063 

1324 

03b0 




005066 

1325 

3076 




005067 



* 

WAIT 


00506b 

1326 

b03 1 




005O69 



* 

AND 

= X» 7P • 

005070 

1327 

00C4 




005073 



# 

C 

=X»04» 

005074 

1328 

7 p 8 6 




0050 77 

1329 

0410 




00507b 

1 32 A 

9741 




0 0 5 u 7 9 



* 

bt T 

bFb2 

005080 

132b 

9641 




0o5o83 

1320 

2 79F 




005O84 



* 



005085 



# 



005086 



* 

RLCV 

3 


PAGE 62 


KILL KLCIVLR 



KT LT (POLL hLAG) 

IP MON POLL DON•T juRN ON XMIT 
XMIT ON TURN OFF RLCV 



LOT 


bOH 


AOOR LHK• 


bTA CHAK. 



TIIlL T050i*•ktV b* TLKMINOL I LbT PAGt 63 


00b087 

1320 

0030 






00b090 



# 

WAIT 




00bu91 

1 34 t 

7600 






00bO9^ 

1341- 

3100 






00bO9.2 



* 

AND 

= X» 7P • 



0ObU9b 

133u 

04 7 P 






006097 



* 

0 

= X*0« 



OubiOu 

1331 

6600 






OUbiOl 

1332 

109 7 






OUbiOc 



* 

OLF 

SPJl 



OObiOj 

1333 

4196 






OOb104 

1334 

4126 






00b10 7 



* 

ST 

2 7 



00b108 

133b 

A207 






00b 111 



* 

KbCV 

3 


PCI 

00bi12 

1336 

lbbO 






OObi lb 

133 7 

3076 






00b 116 



* 

WAIT 




OObi 17 

1336 

bD3 1 






OObi 16 



* 

ktOV 

3 


PC2 

00b 1 19 

1339 

0000 






oub122 

133A 

3076 






00b12 3 



# 

WAIT 




00b 124 

1330 

b03 1 






00b12b 



* 

ktCV 

3 



00b126 

1330 

OObb 






00b129 

1330 

3076 






00b130 



* 

WAIT 




00b131 

1 33l 

b03 1 






00b 1 3^ 



* 

A NO 

= X *7P • 



00b133 

1331- 

0004 






006136 



* 

0 

= X*U2» 


5TX 

00b13 7 

1390 

7 P 66 






00b140 

1341 

0210 






00b141 

1344 

9 741 






OOb148 



* 

bLT 

MOkOHl 



00b143 

1343 

9641 






00b146 

1 344 

2 706 





- 

00b147 



* 

NOP 




00b146 



* 

N UP 




00b149 

134b 

0101 






OObibO 



* 

JUMP 

PKUTtk 



OObibi 

1346 

3 F P P 




PC 

LL5(X»3P*,6)+Lk^(PKUT£R-X , 03t9»,8) 

OOb 1 b4 



*MuKCHl 





Oobibb 



* 

LUC 

MUKOHl 



00blb6 


03fc9 

MOkOHl 

tuU 

X • 03L9 • 



0 0 b 1 5 7 



* 

KtOV 

3 



OObibb 

134 7 

3100 






0Obl61 

1346 

3076 






00b164 



* 

wA IT 




00b163 

1349 

b031 






00b164 



* 

ANO 

= X» 7P • 



0 0 b 16 b 

134M 

0004 






00b16o 



* 

OLOT 

KN^tKl 



00b169 

134(3 

7 POL 






0 0 b 1 7 0 

1340 

632 7 






0 0 b 17 3 



* 

0 

= X»U3» 


ETX 

00b174 

1 34l> 

2066 






OObi77 

1 341 

0310 



< 



00617b 

134b 

9 741 






006179 



* 

btT 

fcO pi 



00b16U 

1360 

9641 






00b 1 fa 3 

1361 

cl 0 6 






006184 



* 

51 




00b18b 

1362 

b030 






006166 



* 

0 

MOkOHl 



006187 

1363 

0020 






006190 



* 

LOO 

tOM 



006191 


0403 

LOP, 

tuU 

X • 0403 * 



006192 



* 

KtOV 

3 



006193 

1364 

L6b0 






006196 

1366 

3076 






006197 



* 

WAIT 




006196 

13bo 

0031 






006199 



* 

AMD 

= X • 7 P * 



OOb^Ou 

136 7 

0004 






006^03 



* 

LO 

3 



006409 

1366 

7P06 






006407 



* 

A NO 

= X 1 7 P * 



00b40o 

1369 

0304 






O0b4ll 



* 

OZT 

tXITl 



0062 U 

136A 

7 P b 0 






0064 1 b 

1360 

270b 






006216 



* 

JUMP 

BAOLHO 



00 b 4 1 9 

1360 

3PPL 




PC 

LLS(X * 3P *,8)♦Lko(bA0LRC-X«0415*,8) 

006420 



*RNGEKl 





006421 



* 

LUO 

KNutki 



006422 


041b 

KNGtkl 

LQU 

X * 04 1 b * 



006423 



* 

lO 

16 



006424 

1360 

P 006 






0U6227 



* 

UK 

= X • 02 • 


btT KANUE LXhAUST FLU 

00622b 

1360 

100 a 






006231 



# 

ST 

16 



006232 

136P 

0207 






006436 



* 

b 

EXIT 



006236 

1360 

1020 






006439 



*tXiU 





00bc4u 



* 

LUO 

tXITl 



006241 


0410 

LXITI 

tgu 

X*0410* 



006242 



* 

ktov 

2 • 



006443 

1361 

1400 






006446 

1362 

3070 






006<c.4 7 



* 

wAIT 




006448 

136 3 

bD3 1 






006449 



* 

AND 

= X * 7P* 



00b2bU 

1364 

0004 






006463 



* 

0 

= X»04» 



006464 

136b 

7P66 






006267 

1366 

0410 






006256 

136 7 

9741 






005459 



* 

OtP 

txm 



006260 

1366 

9641 






006263 

1369 

26LP 
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0Ub<i64 



* 

5T 

* 

OObcbb 

i 3bA 

bD30 




00b26b 



*LXiT 



005267 



* 

LOC 

LX1T 

005266 


0431' 

txn 

LOU 

X*0431» 

005269 



* 

LO 

2b 

005270 

13ob 

CODb 




005273 



* 

C 

= 0 

OObdn 

136C 

1 Abb 




00b 2 77 

1360 

0010 




00527a 

136L 

9 74 1 




005279 



* 

b2T 

LX 112 

oub28u 

13bF 

5027 




005^83 


1370 

0T66 

Egu 

$ 

00b28<+ 



# 

LO 

=X»C9* 

005285 

1370 

04L6 




00528a 



* 

b 

t X1T 3 

005289 

1371 

C920 




005294 



* 

LOC 

txn 2 

005493 


043F 

LX1T2 

tou 

X«U43P» 

005*94 



* 

LO 

=X»CO» 

005295 

1372 

02Cb 




00529a 



* 

LOC" 

• txn 3 

005299 


0441 

LXIT3 

tou 

X 1 0*+41 * 

005300 



* 

57 

20 

U05301 

1373 

C0U7 




005 30*+ 



# 

OUT 

2 

00 b 30 ^ 

1374 

146b 




00530a 

1375 

3028 




0Gb309 



* 

ONb 


0Ub3I0 

137t> 

b03 1 




005311 



* 

LOC 

WU 

00b3l^ 


0449 

WT1 

tuu 

X 1 0*+49 * 

00 b 313 



* 

WAIT 


005314 

137 7 

2060 




00b31b 

137b 

3100 




U0b3 16 



* 

NOP 


0Ub3 1 7 



* 

a 

WT a 

00531a 

1379 

0120 




0U5321 



# 

NOP 


005322 

1 37 A 

FA01 




005323 



* 



005324 



* 



00b32b 



* 



00532b 



* 



0 0 5 a 2 7 

13 7b 

OF 01 FFFF 

LCH2 

NOP 

$ 


CHtCK IF NON POLL RJ»LT 


KILL kecv XNITT IF NON POLL 
KILL KtbV ANi> TUKn ON XMlt 


CHANNLL PKOGRmHS LnDS HhKt 





TIIlL TcscU'RtV b» TLkMlNbL ILbl 


PAGE 


6!? 


Oo5.>2b 
003329 
005 3 3o 
005331 
o0533<c 
003333 
003834 
003^33 
0 U 3 3 31> 

0 u 3 3 3 / 
00333o 
003339 
003340 
u033Ai 
0u5J42 
003343 


WAIT FUR SlAIUS CUMPLET b 
LNJ *>b4,<TtSTS 


b 

oc 


S*2 

XX 


RtTOKN 
l L MtOUT 


IN 12GTH' S SEC, 


003344 

137 u 

6F00 

155A 


lEbTSR 

SAVE 

<SAv2,=2*4909* 


1 3 7 F 

4909 






0U3343 

1 3oo 

V.640 

01C1 



lok 

SR4 * CON16 

00534o 

1362 

C570 

FFbF 



AnD 

*R4,=2*FFbF» 

003347 

1 3 b 4 

CF 40 

FAC2 



bTR 

SR4,TEMP 

003646 

1 3oo 

OF 66 




D 

>1EBl5A 

003349 

133 7 

6 F 00 

155 A 


i Lb 1 b 

SAVE 

<bAv2,=Z»4909» 


1339 

4909 






005350 

1 3ttM 

CB40 

01b7 



LOR 

SR4 < CUNT 6 

00335i 

136C 

CF40 

FAbA 



srk 

SR4«TEMP 

00335c 

1 36t 

6 751 



1ESTSA 

CL 

= SR L 

003333 

1 3bF 

9F00 

0000 

X 


blK 

a>R 1 » <2HRT C1 

003354 

1391 

1C01 




LOV 

SRI1 

003355 

13 9c 

9F00 

0000 

X 


b I R 

SRI»<ZHRTCL 

005356 

1394 

9670 

1700 



Ldk 

*R1i=X»1700* 

003357 

1396 

9F00 

0000 

X 


SIR 

SR 1»<2HRICC 

00335b 

1396 

69C0 

0 l F 3 



CMZ 

INHk fC 

003^59 

139m 

0960 


r 


bNE 

> + $A 

005360 

139b 

O004 




RTCN 


0O3361 

1 3 9 C 

C3bO 

1499 


SA 

LNJ 

Sb4,<lNXT 

00336c 

139L 

DF'40 

F596 


TtSTZ 

blK 

SR5 *LF LAG 

0U5363 

13AU 

6205 




Lb 

=SR3*=Z'1000* 


1 3 A1 

1000 






003364 

1 3 Ac 

0301 

0032 



bbT 

TESI21 

005363 

1 3 A4 

6960 

0000 

X 


CM2 

<ZHKlCC 

005366 

13 Ao 

0926 




bE 

> T t b T Z 0 

UU3367 






CALL 

2V$dRK 


1 3 A 7 

FbFO 

0001 






13A9 

0360 

0000 

X 




003 j-6t> 

13 Ad 

6960 

0000 

X 


CM2 

<ZVsbKF 

005369 

13AU 

0961 

0050 



bNE 

BREAK 

005370 





* 



005371 

1 3AF 

69C0 

F3bF 



CM2 

IbbFLG 

00337c 

1 3bl 

0960 


i 


bNE 

> + SA 

003373 





* 



005374 

1 3bc 

C3C0 

F bt4 



Lnj 

$B4,lObb 

005373 

1 3b4 

C600 

0t47 


SA 

LOR 

SR4,<1EMP 

00 3 3 7 o 

13bo 

6035 




1U 

s$K3»=$R4 


13b 7 

0054 






00337 7 

13b6 

0 766 




blui 

> T E b T 2 

0u537b 

1 3b9 

b360 

1 0 AO 



LNJ 

$b3 »<ERRMb 

003379 

13bb 

444C 

4350 2049 



I EXT 

•OLCP IU ru iMPUI 


13bc 


4F 20 
4t 50 
3441 
3 741 
4A43 
2400 


344F 2049 
3534 2053 
5455 5320 
5320 5245 
4354 4344 


K1 »4,7»b4,7 

ZERO OUT kTC RESET VALUE 
SET FOK KUP1 LEVEL 1 
SET RLAL TIME CLOCK 

INPUT NEXT STaTUS 

Ttbl FUR bTATub CUmPLETL 

bRANCh IF CUMpLtTt 
TtbT RIC 
T IMLOUI 


INHIbU IOSFLaG 

OONOT CHECK OaT SET STATUS FOR LA,£L ItST 

CHECK UAIA SEi STATUS 
FUNCTIUN coot 
INPUT STATUS 

BRANCH MEANS [RY AGAIN AFltK CHECKING ObS 
INPUT b|ATUb wAb Nak'EO 
STATUS WAb KEJECiEOS' 


00536U 

13CL 

bB60 

0E20 



ItbTZO 

L Ab 

•&b3 ,<tM3 

005381 

13U0 

bF CO 

0573 



SA 

bTo 

$B3 «MwFb 

00538c 

1302 

0005 





RTCF 


005363 

1303 

OFbl 

03 At 




b 

EHAhO 

005384 

1303 

OF 40 

F53F 



Ttsrzi 

SIR 

$R5iLFLAU 

005385 

1307 

6205 





Ld 

=$R3*sX»0400» OATA 1 


1308 

0400 







Oo5 38o 

1309 

0580 



T 


bbF 

> + So 

o05 38 7 

1 3 Oa 

b3C0 

FCC5 




LNJ 

Sb3iERRMb 

003388 

1 30C 

5052 

4F 54 

4F43 



1 EX I 

•PRuTUCALL ERRORS' 


1 30F 

414C 

4C20 

4552 







524F 

5224 






005389 

1304 

OF 80 



T 


b 

>*$D . 

0O3390 

13E3 

6205 




sc 

Lb 

=SR3*=X'0040» 


1 3Eo 

0040 







005391 

1 3E7 

03b0 



T 


bbF 

> + $b 

003392 

1 3Lo 

o360 

iOAO 




LN j 

S b 3♦<ERRMb 

003393 

UE A 

4C52 

4320 

4 1 4 t 



I EX T 

•LRC ANO PARITY ERRORS' 


13Eo 

4420 

5041 

5249 







3459 

2045 

5232 







4F52 

2400 






003394 

13F3 

6205 




SO 

Lb 

=$R3»=X'0200» RANGE 


1 3F o 

0200 







0U3J93 

13F7 

05 tO 



T 


BbF 


005396 

l3Fb 

0360 

IOAO 




LNJ 

3,B3,<tRRMb 

005397 

UFA 

3243 

4343 

4956 



1 EXT 

'RtCtiVE RANGE EXHAUST EOS• 


UFO 

4520 

5241 

4E4 7 







4520 

4558 

4641 







3553 

5445 

4424 





005396 

1406 

6F 60 

1 5 5 A 



SB 

RSTk 

<SAv2*=Z'4909» 


1406 

4909 







005399 

1409 

O005 





RTcF 

SHUT 

005400 

140A 

6364 





JMP 

Sb4 tXlT 

005401 






* 



00540c 

1 40d 

9640 

FA41 



bRtAK 

LOR 

SRU tESI 

003403 

140b 

9970 

454C 




CMR 

SR1» = A•EL• 

003404 

140F 

0977 





bt 

>-Sb 

003403 







CALL 

ZVSUbOET 


1410 

FbCO 

0003 







1412 

0360 

0000 


X 





1414 

OF 60 








14 13 

1416 







00540b 

1416 

OF 6 1 

F 547 




b 

count b 

005407 






* 



00340b 

1418 

636F 

617 3 

6F6C 


bOLT 

TEXT 

•CUNSULt bRtA< DETECT EOS' 


14 1 b 

6520 

6272 

6 561 







6b20 

6465 

7463 







6374 

6564 

2400 





005409 






# 
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00b41U 





* BLOCK wKITi_ 

DM a 10 RAM 


006411 





* 




005412 





* 

LNJ 

$bl*<SOATA 


005m 16 





* 

00 

DmTA 

LOCATION OF OaTA 

006414 





* 

00 

RANGE 

number OF OATa BYTES 

006416 





* 

00 

KAMAO 

RAM AOOKESS 

006416 





* 

00 

EVEN 

0 = EVEN BYTE CPU ADDRESS 

006417 





* 



BII 16 = 1 FOR ODD BYTE START 

00641b 
00641 9 





* 

* 



BIT 1=1 FOR NO DELAY BEFORE RETURNII 

006420 





* R3 MUST CONI AIN THE CHANNEL 

NUMBER 

006421 





* 




006422 

1424 

0840 

FA2 A 


SDATA 

LOR 

SK3 , CHAN 


00642b 

1 4c6 

6 F 00 

154A 



SAVE 

<SAvlt=2»FFbF* 

SAVE ALL BUT bl 


142b 

F F OF 







006424 

1429 

OOF 1 




LOB 

$B5,*$B1 

GET ADDRESS OF DATA 

006426 

142m 

0671 




LOR 

$R4 , + $bl 

GET RANGE 

006426 

142 b 

OFOO 

143A 



STk 

$K4,<SPRG1 

STORE RANGE 

006427 

1420 

OF 6 0 

1439 



STB 

SB6 *<SPRG5 


00642b 

142F 

A67 1 




Lbk 

Sk2 , «-$bl 

GET RAM ADDRESS 

006429 

1430 

AF 00 

143b 



STR 

SK2 ,<SPRG2 


00643u 

1432 

9871 




LOR 

SRI , + $Bi 

LOAD SI ART BY{E INDEX 

006431 

1433 

9570 

7FFF 



ANO 

SRI* = X'7FFF• 


006432 

1436 

OF 01 

FFFF 



NOP 

S 


006433 

1437 

0380 

14F 3 


SPKG6 

LNJ 

SB4 * <hCCB 

FORM COB 

OU6434 

1439 


0000 

X 

3PKG5 

00 

<ZHCOMM 

CPU address 

006436 

143 A 

0000 



SPkGl 

00 

0 

range 

006436 

1430 

0000 



SPRG2 

00 

0 

RAM AOOKESS 

006437 

1430 

OF 01 

FFFF 



NOP 

S 


00643b 

1 4 3 L 

0360 

1078 


SPRG2A 

LNJ 

$B4,<CHC1 

GIVE CHANNEL CONTROL 

006439 

1440 

UF 82 




b 

> SPRG3 


006440 

1441 

0400 




00 

X * 4uU * 

BLOCK WRITE 

006441 





* 




006442 





* PROGRAM ARRIVES HERt FROM SDATA OK ROATA 

00644b 





* 




006444 


1442 



SPKG3 

EuU 

S 


006446 

1442 

0360 

136 7 



LNJ 

Sb4,<TESTS 

WAIT FUR STATjS COMPLETE* OR 

00644o 

1444 

6205 



SPKG4 

Lb 

=SR5*=X*1000* 

GET STATUS COMPLETE BIT 


144b 

1000 







006447 

1446 

OF 0 1 

FFFF 



NOP 

S 


00644b 

I4sb 

0500 


1 


BBT 

> + $b 


006449 

1449 

b360 

10A0 



LNJ 

3>b3,<tKKMB 

STATUS CUMPLEIE NOT SFT AFTER BLOCK WRITE 

006450 

144o 

4440 

4350 

2063 


I EX T 

* OLOP STATUS COMPLETE NOT SET AFTER bLOac WRITES* 


144t 

6441 

5455 

5320 







434F 

4050 

4046 







5445 

204 E 

4F54 







2053 

4554 

2041 







4654 

4652 

2042 







4 04 F 

434b 

2057 







5249 

5445 

2400 





005451 

1463 

6205 



SB 

Lb 

= $ K 5 * = 7 



1464 

0007 







006452 

1465 

0596 




BBF 

>SPkG7 


005453 

1466 

6380 

iOAO 



LNJ 

SB3 *<ERRMb 

ERROR * PARITY,MEMORY.OR RESOURCES 

0U6454 

1466 

4440 

4350 

2050 


1 EXT 

'OLOP PARI TY, viEMORY OR RESOURCES ERRORS* 


1460 

4152 

4954 

5920 







4045 

404F 

5259 







204F 

6220 

5246 







5 3 4 F 

5552 

4345 







5320 

4552 

524F 







5224 







005455 

1470 

8F80 

154A 


SPK07 

Kb Tk 

<SAvl*=2'FFi3F* 



14 70 

F F bF 







005456 

14 71 

6381 




JMP 

SB! 


005457 





****** 




00545b 





* 




005459 





* BLOCK KEAO 

FROM RAM*- CHAV. 

NUMBER MUSI BE IN k3* 

0u546u 





* 




005461 





* 

LNj 

SuU<KOATA 


00546<i 





* 

00 

InBUFF 

INPUT BUFFER ADDRESS 

005463 





* 

00 

RmNGE 

NUMbER QF BYTtS 

005464 





* 

00 

RAMAO 

RAM ADDRESS 

005465 





* 

00 

EVEN 

0 s EVEN BYTE CPU ADDRESS 

005466 





* 



BII 1 = i FUR ODD BY It ADDRESS 

0 u 5 4 6 7 

f I ( 1 k A /v O 





* 



BII 0 = I FOR NO DELAY AFTER STARTING 

005469 

L4 7F 

bF 00 

154A 


ROATA 

SAVt 

<SAVi,=Z«FFBF' 

SAVE EVERYTHING BUj Bl# 


1 4b 1 

FFbF 







0u547o 

1462 

OOF 1 




LOB 

SB6,4$B1 

GET IN BUFF A uD 

006471 

1483 

OF80 

1490 



ST b 

SB5,<ROTA1 


Ou5h /2 

i486 

0871 




LOR 

SR4,+$Bi 

GET RANGE IN dYTES 

00547b 

i486 

OFOO 

1491 



STR 

$R4,<KDTA3 


005474 

146o 

9871 




LOk 

SRUtSBl 


005476 

1469 

9F00 

1492 



STR 

Ski*<R0TA2 


0U54 7o 

i486 

9671 




LOk 

$K1,+$B1 

PICK UP EVEN, ODD FLAG 

006477 

1460 

9570 

7FFF 



ANO 

$R1* = X» 7FFF• 


00547c 

i486 

0360 

14F3 



LNJ 

SB4,<M00b 

FORM CCB 

006479 

1490 

1490 



RDTA1 

00 

< R 0 I A1 

CPU address 

00546U 

1491 

0000 



K0TA3 

00 

0 

RANGE 

005461 

1492 

0000 



K0TA2 

00 

0 

RAM ADDRESS 

00548*: 

1493 

0360 

1076 



LNj 

SB4,< OHOT 

ISSUE CHANNEL CONTROL 

005483 

1496 

OF 62 




b 

>R01A4 


006484 

1496 

0800 




00 

X»8U0» 

BLOCK READ 

Ou 54b 5 

1497 

OF 6 1 

FFAA 


R0TA4 

B 

SPKu3 

EXIT 

005486 





* 




005487 





* 




006s 86 





* INPUT NEXT 

STATUS TO R5 


005469 





* 




005490 

1499 

6 F 40 

0060 


INaT 

SAy/E 

5AVI♦=Z'0008' 

B4 


1490 

0006 







005491 

1490 

0800 

1540 



Lbk 

SK4,<00NT 4 

GET CONTROL KURD FOR INPUT NEXT STATUS 

00549*; 

149t 

6055 




10 

=SR6*=$R4 

GET NEXT STATUS 


l49h 

0054 







005493 

14 AO 

0700 


T 


BiuT 

> + Sd 


0 U 5 s 9 4 

1 4 A1 

b3b0 

1OAO 



LNJ 

SB3,<ERRMB 

INPUT NEXT STaTUS WAS NAMED 

0u5496 

1 4 Ab 

4440 

4350 

2049 


TEXT 

•OLOP INPUT-NEXT-STATUS v»AS REJECT l.DS » 


14A6 

4E50 

5554 

204E 







4558 

5420 

5354 







4154 

5553 

2057 







4153 

2052 

454A 







4543 

5445 

4424 





005496 

1405 

8 F 00 

0094 


SB 

kSTK 

SAV1 * = Z'0008 ' 



1407 

0008 









U'TlE T 

0501 , * 

ktV b • 

TLRMlNbL 

T Oo T 




PAUL 67 

0 0 5 4 9 7 

i 4DO 

8384 





JmP 

Sb4 


005498 






# 




005499 

l4b9 

AbbC 

1060 



SRCV 

OAb 

Sb2,<0H0TR 


M ■ 0O550O 

1 4 DD 

APOU 

FF83 




bTb 

Sb2 i SPKG2 A + 1 


■ 0U5501 

1 4 D 0 

Ab80 

1370 




OAb 

SB2♦< 1LblbK 


m 00550^ 

1 4 t F 

AF 00 

F F 8 3 




bid 

Sb2,SPRJ3+1 


0u5b03 

lHCi 

9840 

00 70 




LOK 

SKI i CUNI4 


uu 5504 

1403 

9 5 70 

FFbF 




AND 

SRI*=Z*FFbF* 


005505 

1405 

9 F 40 

00 7 A 




STK 

$R1* CUN r 4 


0U55G& 

14 07 

AB80 

1401 




OAb 

Sb2 »<MCCbk 


0U5507 

1409 

AF 00 

F F 60 




bTb 

3>b2 * 5PKG6 + 1 


UubbUo 

1 4 Od 

o 3 86 





JMP 

Sb6 


005509 






* 




Oubblu 

1 400 

AbbO 

1078 



STMT 

LAd 

SB2 »<CHCT 


UUbbl i 

1400 

AF 00 

F F 70 




bTb 

Sb2iSPKG2A+l 


005512 

1400 

AbbO 

14 F 3 




LAD 

SB2i<M00b 


U 0 b b 1 3 

140^ 

AF 00 

F F 65 




bib 

Sb2,bPRG6+l 


Oubb 14 

1404 

AbfaO 

138 7 




LAb 

SB2 $<T LSTS 


005515 

1 40b 

AP GO 

FFbO 




bTb 

Sb2,SPRG3+l 


0 0 b b 1 0 

1 4 Ob 

9840 

0067 




LUK 

SRI $ CON 14 


0 0 b b 1 7 

140m 

9570 

FFbF 




A NO 

SRI»=Z» FFBF* 


005316 

1400 

9670 

0040 




XUk 

SRI,=X»40» 


0 U b b 19 

1 4 OL 

9 F 40 

0061 




SIR 

SKI«C0NT4 


00552U 

1 4 LO 

8386 





JMP 

Sb6 


uubb21 






* 




0035 Ic. 






* 




U05523 






* 




005524 






* 

CCd 

FORMA1 ION 


005525 






* 




005526 






* 

Sk3 

- COM 1 AIMS CHANNEL wANTED 

0 0 b b 2 7 






* 




00552b 






* 

LNJ 

Sb4*<MC0b 


U u b b 2 9 






* 

UC 

Oku AOOKLbb 


u0553u 






* 

00 

kANGL IM BYT Lb 


003531 






* 

00 

KAM AOOKLbb NUMBER OR CHANNEL OuMTROi WQkU* 

0 0 b b 3 2 






* 




Oubb33 

1 ml. 1 

8 F 00 

15 5A 



MCCbR 

bAVO 

<SAv2*=Z»FDF4» 



1 4 L 3 

PDF 4 








uubb34 

14L4 

OF 01 

1 FTP 




MOP 

S 


00bb3b 

lMtb 

0840 

0056 




LOR 

$R4 9 CONT 1 


005536 

1 4 0b 

05 70 

FFbF 




AMO 

SR4*=Z* FFBF • 


00bb37 

14LA 

OF 40 

F 950 




blK 

SR4 *ILMP 


00553b 

1400 

0840 

0052 




LOK 

SR4 9 CONT 3 


00bb39 

1400 

05 70 

FFbF 




AMO 

SkA^Z'FFBF * 


0 0 b b 4 0 

lMf-0 

OF 40 

F 95 7 




bTR 

SK4, 1 LMP-f 1 


Oubb41 

1 mF2 

OF 8C 





b 

>MOOBA 


OUb 54l 

i4h3 

8 F 00 

1 55 A 



MO Ob 

SAVt 

< bAv 2* = 2 *F0F4 » 

bAVLb Sbi *SB3,Sb2»$B5,JR'*2>Rl>»iR^*R^*6 SRI 


lMKb 

F OF 4 








00554d 

14 F 6 

0840 

0046 




LOK 

SR4 9 CONT1 


0U5544 

14 F b 

CP 40 

F 940 




bTR 

SR4,iLMP 


0Gbb4b 

ImFA 

0840 

0044 




LOR 

SR4,00N13 


UUb b4o 

ImFO 

GPmO 

F 94b 




SIR 

SR4 9 1 LMP-f 1 


0ubb4 7 

1 4 F o 

ACF4 




MCCBA 

0 Ob 

Sb2 » + SB4 

LOAO Sb2 WITH CPU ADDRLbb 

003546 

14 F F 

0874 





LOR 

SR5»+SB4 

OLT KAMGt 

00bb49 

lbOO 

A8 74 





LOK 

SK2 »♦SB4 

PUT RAM AODRLjS IM jR2 

£ 00555u 

ibOl 

DLD4 





bwb 

Sbb »=$B4 

ALLOW SB4 TO dL Ub£ IN bUbR. CALL 

§ 00b bb l 

1 b02 

0800 

0047 




LOK 

$R4 9 <I BMP 

LOAO SK4 WITH I/O CONTROL WUKD 

1 00555-c. 

1 b04 

8182 





1 OLO 

Sb2*=SK4,=sR5 

OUTPUT AOOKLbb ANO RANOL 


ibOb 

0054 









1 bOb 

0055 








Oubbbb 

ibO 7 

0700 



T 


biOT 

> ♦ SA 


00b bb4 

1 bOb 

d380 

10A0 




LN J 

Sb3 * <LKKMb 

LRROR» IOLD WmS NA K »eD 

OObbbb 

1 bO A 

4 4 A C 

4350 

2049 



1 EXT 

•OLOP I OLD NA<,~LOS * 



lbOO 

41* 40 

4420 

4041 








4b2D 

4544 

2400 






005556 

1 b 13 

0800 

0048 



SA 

LOK 

SK4*< TLMP+1 

LUAO SK4 WITH 1/0 CONTROL WUKD 

00b b 5 7 

lblb 

8052 





10 

= SK2 * = SR4 

OUTPUT MLCO RaM AOpRESS 


151b 

0054 








OObbbb 

lbl 7 

0700 



T 


blOT 

> ♦ $D 


0.05 559 

lblb 

b380 

1 OAO 




LMj 

SB3,<LRRMb 

ERROR 9 OUTPUT CONTROL WAb NAk• tO 

00bb60 

1 b 1A 

4440 

4350 

204F 



TOXI 

•OLOP OUTPUT CUN1R0L 

WAS NAR-LOS* 


1 bio 

5554 

5055 

5420 








434 F 

4054 

524F 








4020 

5741 

5320 








4b4 1 

4B2D 

4544 








2400 








00bb61 

1 52-h 

OhDb 




Sb 

bwb 

SB4,=SB5 

SWAP FUR SUbR* RLTyRN 

005562 

1 52d 

8F80 

155A 




KbTR 

< b A v 2♦ = 2•F0F4* 

RESTURL KEGS* 


1 b20 

F OF 4 








0U5563 

1 b20 

83b4 





JMP 

SB4 


00bb64 






***************** * ***************************************************** 

00 bb6b 






* 




0Ubb66 






* 




00556 7 






* 




OObbbb 






* 




00556^ 






* CUNTRUL WOKuS FUR 10 OPERAT 1ONS 


00bb70 






* 




00bb7 1 










0 0 5 5 7 2 






* 

I/O OOMTKOL WOKOb 


00bb73 






* 




005574 

1 52F 

0840 

F91F 



CON T S 

LOR 

$R4,CPiAN 


003573 

1531 

Ab80 

1530 




LAb 

SB2,<00Mn 

INSERT CHAN NdR INjO FUNO OOOE5 

003376 

1533 

8751 





OL 

= SR 1 


003377 

1534 

0812 




SA 

LOR 

SR5 9 sb2.sk1 

GET A 1 ABLE LhTRY 

00bb7b 

1535 

0570 

003F 




and 

SR5,=X*003F » 

WIPE OUT HISTORY OF PAST USAGE 

00 3 3 79 

1537 

0454 





ok 

SR5 9 = SR4 


003380 

1538 

OF 5b 





bTK 

SK5 »SB2.+SR1 

STOKE RESULT 

005581 

1539 

0940 

F 9 15 




OMR 

SK'5 * CHAM 


00538t 

153b 

09P 9 





bNL 

>-SA 

EXIT IF END OF TABLE 

00b b83 

1530 

8381 





JMP 

$bl 


00bbB4 

1530 

0009 




CONT 1 

00 

L * 0U09 * 

1OLO FUNCTION COOE 

005585 

1530 

0000 




COM 12 

00 

2 * 0000 1 

INPUT KANGL FUNCTION COOL 

005586 

153P 

OOOF 




C0NT3 

00 

2'OUOF* 

OUTPUT COB CONTROL FUNCTION COOL 

00bb87 

1540 

00 1A 




COM f 4 

00 

X* 1A* 

INPUT NEXT STATUS FUNCTION CODt 

00 bb88 

1541 

000 b 




CONT 5 

00 

Z’ooob* 

OUTPUT BYTE INTO LCT FUNCTION COOE 

00bb89 

1542 

0018 




C0NT6 

00 

Z*OUlb» 

INPUT STATUS FUNCTION COOt 

^. 00bb90 

1543 

0005 




CONT 7 

00 

X * 5 • 

OUTPUT CHANNEL CONTROL FUNTION CODE 

00bb91 

1 544 

0026 




CONT 8 

00 

X»2o* 

INPUT 10 FUNO | ION CODE 

m 00b b92 

1545 

0001 




CONT 9 

00 

2«000l* 

OUTPUT MLCC CuNTROl FUNTION CODE 

m 00bb93 

154b 

OOlt 




C0NT10 

00 

X* It* 

INPUT LO1 STA1US 

s ' 0 0 b b 9 4 

154 7 

0003 




CONT11 

00 

X * 3 • 

OUTPUT INTtRRuPT CONTROL FUNCTION COOL 

0 Ubb9b 

1548 

0010 




COM T12 

00 

X* 10* 

INPUT UATA SEI STATUS 

005596 

1549 

0000 





00 

0 

TERMINATE TAbLE 
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003397 

134a 

GOOD 



SAVl 

KtSV 

9+7*$AF,0 


003398 

IbbA 

GGGG 



SAV2 

KESV 

9 + 7*$AP , 0 


003399 

lb6A 

OOGG 



SAV3 

KtSV 

9’*'7*$AP *0 


0U360U 

13 7 A 

GOGO 



SAVb 

KtSV 

9+7*$AF *0 


UUboOl 

ibbA 

2116 



ACLAIO 

KESV 

1,X•2118 * 

ID 8TUKA0E AREA 

00bo02 

ibbD 

0000 



NOSTOP 

KESV 

liO 

"RUN FOREVER" FLAG 

003603 





* 




0U3604 

IbbC 

0000 



1NHR7C 

oc 

0 


OObtOb 





* 




OObtOt 





* 

KtUUtsT MODEM TYPt,C< 

IF SUPPORTED, CK FO* EOOpBACK CAPABILITY 

003607 

ibdD 

bB6G 

16 IE 


KMT 

LAB 

$B3,<RMODEM 

LOAD MESSAGE ADDRESS 

OOboOb 

lbdP 

C3CO 

0164 



LNJ 

$64 , TYPED 

ASX FOR MODEM TYPE 

003609 

ib9i 

8 740 

0092 



CL 

I MOJEM 

CLEAR PREVIOUS TYPE 

OOboiC 

lb93 

8740 

0091 



CL 

1 MODEMS 1 


OOsoll 

ib9b 

1CGA 




LDV 

$K1,=X*A» 

ALLOW 8 CHAR INPUT 

GGbo 1 c 

1396 

9P4G 

P8BE 



6TK 

$K1,KNG 


OObo13 






CALL 

ZV$1A,STAT,1MJDEM,RNG 


ibVb 

PbCO 

0003 







i b9A 

b3b0 

0000 

X 






1 b V Vw 

0F8G 








139 J 

0Lb4 








1 b91 

1624 








139P 

OEbb 







00361*+ 

lbAG 

9840 

0083 



LDK 

SR 1 , 1 MODEM 

LOAD MODEM TYPE INpyj 

OGbolb 

1 b A2 

9970 

3230 



CMK 

$kl,=X»3230» 

20? 

003616 

13 A4 

09GA 




bE 

>KMTA 


003617 

ibAb 

9970 

-3130 



CMK 

SKI , = X»3130* 

10? 

0036 1 0 

13 A 7 

092t 




bt 

>KM7 b 


U0b6l9 

ibAb 

9970 

3131 



CMK 

$R1,=X»3131» 

11? 

003620 

ibAA 

0901 

0036 



BE 

KM7 C 


003621 

13AC 

GFb 1 

003C 



B 

KM7N 


003622 

ibAE 

9840 

00 76 


KMT A 

LDK 

SRI , IMOdEM+1 


OUbo23 

IbbG 

9970 

3233 



CMK 

Ski , = X*3233» 

IS IT 2S? 

003624 

i bb4 

0901 

003C 



bt 

NLOOP 


00362b 

ibbA 

9970 

3254 



CMK 

SR1,=X»3234» 

IS IT 2T? 

GGbb2o 

1 bbb 

0939 




BE 

>NLUUP 


0 0 b 0 2 7 

ibb7 

9970 

3243 



CMK 

SK1 , = X •3243 1 

2C? 

00b62o 

l bb^ 

0936 




bt 

>Nl_UUP 


003629 

ibbA 

9970 

3244 



CMK 

Sk1 , = X • 3244 • 

2D? 

GGbdiU 

IbbC 

0933 




BE 

>NLU0P 


OOboil 

Ibbu 

9970 

380b 



CMK 

SKI,=X*380D* 

8 ? 

00bo32 

i bbF 

0901 

G05C 



Bt 

M2 06 


003633 

13C1 

9970 

3842 



CMK 

SR I, = X•3842• 

8B? 

003634 

ibC3 

0901 

0039 



bt 

M20ob 


003633 

ibCb 

9970 

330D 



CMK 

SRI,=X»330D» 

3 ? 

003636 

1 3 c 7 

0901 

0053 



bt 

M2 0 3 


0 G b 0 3 7 

13C9 

9970 

3141 



CMK 

SKI,=X»3141* 

1A? 

00563d 

IbCb 

0901 

0036 



bt 

M201A 


003639 

lbtu 

9970 

3142 



CMK 

SKI,=X»3l42» 

lb? 

GGbo4G 

13CF 

0901 

0032 



bt 

M201A 


Q0bo4i 

ibGl 

9970 

3143 



CMK 

SKI»=X»3143» 

1C? 

GGbo42 

13D3 

0901 

002E 



bt 

M201A 


003643 

i bbb 

9840 

0 0 4 F 


KM7B 

LDK 

SK1 * 1 MODEM*1 


GGbo44 

i bb 7 

9970 

3341 



CMK 

SKI* = X* 3341 • 

3A? 

GUbo4b 

i bb9 

0916 




bt 

>NLuOP 


GG b b4 6 

IbbA 

9970 

334b 



CMK 

$K1,=X»334b* 

3E? 

Gubo47 

ibbG 

0913 




BE 

>NLOOP 


00364b 

i bbb 

9970 

3346 



CMK 

SR 1» = X•3346 * 

3F ? 

003649 

i bbf- 

0910 




bt 

>NLU0P 


OObobu 

13E0 

OP 89 




b 

>KM 1 N 


GGbobl 

lbti 

9840 

0043 


KMTC 

LDK 

SK 1 * 1 MODEM-t-1 


00b6bt 

1 bt.3 

9970 

3341 



CMK 

SKU = X' 3341 » 

3 A? 

003633 

IbEb 

090 A 




bt 

>NLuQP 


00b6b4 

ibtb 

9970 

3342 



CMK 

SK1»= X•3342♦ 

3B? 

GG b bb b 

Ibtb 

0907 




bt 

>NEOOP 


GG b t> 5 0 

ibE9 

bbbO 

163D 


KM7 N 

LAd 

SB3 *<NONSUP 

type message; 

0 G b 6 5 7 

lbEt 

C3C0 

OOP 9 



Em j 

Sb4,7YPEC 

UNSuPPOK 1 ED MuDEM 

OObobb 

ibtb 

OP 81 

Eb 12 



b 

81 AKl 


003639 





# 




0ubo6G 

1 btp 

bbbO 

1646 


NLUOP 

LAb 

SB3 1 <NOLOOP 

type message; 

003661 

lbPl 

C3C0 

00P 3 



LNJ 

Sb4,!YPEC 

NO LOOP CAPABILITY 

003662 

1 bF3 

OP 6 1 

EBOC 



b 

87 AKI 


GGbob 3 





* 




00bo64 





* 




GUbt>6b 





* 




0ubo66 

i bp b 

03 CO 

01 1C 


pkbcha 

LNJ 

Sb4,HEXPK7 


G G b 6 6 7 

13 F 7 

0E4E 




DC 

<BCHAN 


G0bo6ti 

ibFb 

b3b2 




JMP 

Sb2 


003669 





* 




GUbb7U 

1 3P 9 

6C6P 

bp 70 

206b 

DONE 

7 EXT 

•LOUP E87 ABL1 8PiEDS * 


lbPt 

7 3 74 

6162 

6C69 







7368 

6364 

2400 





00bo7i 

i 6 G 2 

9840 

F 8 4 A 


M201A 

LDK 

SKI * 1181 


GGbo 7 2 

i 6G4 

9970 

4Cb 2 



CMK 

SKI,=X»4Cb2» 

KLMOTt LUOP? 

GUbo73 

i 6Gb 

0902 




BE 

>M201AA 

NO LK POK THIS MODEM 

GUbo74 

i 6G7 

6366 




jMP 

SB6 

RETURN, ALL On 

GGbb7b 

i bbb 

tibbO 

160L 


M201AA 

LAB 

SB3,<NKEML 


003676 

i bGA 

C3C0 

OODA 



LNJ 

SB4,1YPEC 


Gubb7 7 

lbGG 

OP 6 l 

EAP 3 



b 

STAkI 


GGb6 7 b 





* 




GGbb79 

1 bOt 

6EbP 

2072 

6560 

NktML 

TEXT 

•NO REMOTE LOOP 

CAPAdILITYS’ 


ioli 

OF 7 a 

6520 

6C6P 







6P 70 

2063 

6170 







6162 

696C 

69 74 







7924 







G G b b 8 U 





* 




GUbbbl 

lbiu. 

6366 



M2 0 3 

JMP 

SB6 


G G b b 8 4 





* 




003683 

lblC 

6386 



M2 08 

JMP 

Sb6 


003684 





* 




GubbBb 

16 ib 

8366 



M2 08b 

JmP 

SB6 


GGbobb 





# 




G G b b 8 7 





* 




Gubobb 

1 6 IE 

6b6P 

646 b 

6D20 

RMGDEM 

TEXT 

•MOuEM TYPES* 



1 b 2 i 

7479 

706b 

2400 





GG bb 8 9 

1624 

OOOu 



1 MODEM 

KESV 

2,0 


GGbbVG ' 

i 64b 

7463 

7374 

2400 

EMA 

1 tXl 

• 7 E 8 i S • 


00369 1 

1629 

2063 

6861 

6tbE 

EMb 

TEXT 

• CHANNELS* 



1 b2C 

bbbC 

2400 






00369c 

16 21 

6b6 3 

7367 

2400 

EMC 

TtxT 

• ME60S * 


GUbb93 

1 b3 I 

6372 

7 2 6 P 

7220 

EME 

TtXT 

• EKkuK REPORT 1 NOS • 


1634 

7263 

70 6 F 

7274 







6 9bE 

6724 








4 

' 4 , 
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005694 

1639 

207 0 

6173 

7365 

PSS 

1 EXT 

• PaSSESS* 



1 6 3C 

7324 







0U5o95 

1 6 3u 

756E 

73 75 

70 70 

NGNSUP 

TEXT 

*UN5UPPUKT eo mooeh 

b • 


1 6 hO 

6F72 

7465 

6420 







606F 

6465 

6024 





005696 

±640 

bLbF 

2060 

6 P 6 P 

NOLUOP 

1 EXT 

• no LDUPbACK CAPAb1LIT YS * 


164 9 

7 06 4 

6163 

6b4;0 







6361 

7061 

6269 







6069 

74 79 

2400 





005697 

iob4 

6 C 6 p 

bp 7 0 

206C 

tSTLPL 

r e.aT 

•LOUP LOCAL MODEM 

CHANS* 


l 6 bb 

6 P 6 3 

oloC 

2060 







bF 64 

656b 

20b3 







6861 

6 124 






005696 

16 bo 

4352 

2F40 

4600 

CKLPAb 

T tXT 

•CK/LP• 


005o99 

1060 

oUOa 

2400 


CKLP 

luXT 

L *OuOA•i•$• 


005 70u 

1662 

2065 

7272 

6 F 7 2 

LKb 

TEXT 

• tKKOKbi* 



1665 

7324 







out? t U i 

1666 

6 C 6 P 

bF 70 

2072 

tblLPK 

Text 

•LOUP KthUTt MUOtfM 

CHANS• 


1 66 V 

ob 6 o 

6P74 

6520 







oDbP 

6465 

6020 







o366 

6 16E 

2400 





0u5 /0^1 





* 




U U 5 7 0 3 





* OlbPLAY 

htbbAOL UN CONSOLE 


UU5 704 





* 




005/05 


16 72 



CUNPkT 

tuu 

S 

PKOVlOt AUTO lR/LF AFTtk EVERY 

UU57 Oo 

1672 

0300 

0050 



LNj 

Sb4,NEWLIN 

PKOvlOtb CLEAN CONSOL OOfPOI 

005./0 i 





* 



80 BYItS Tu ACCOMODATE TIY-R. 

OUb /'Ob 





* 



bb3 PUINTb TO bUFFtR? 5R1 HAb WORD COUNT 

005 /09 

1 0 74 

0P01 

PPPF 


coiNiPki 

NuP 

S 


005 710 

167b 

A803 




LOk 

SK2,Sb3 

CHECK FOR BEGINNING CR/LF 

00 b /U 

16 7 7 

A940 

PPE 6 



ChK 

Sk2,CKLP 

CHECK FOR CK/LF 

005/12 

1679 

0989 




BNt 

>obpb r 

IF NOT CK/LF, START DISPLAY LOOP 

00b /13 

lo 7A 

aU03 




LOd 

SB2*=Sb3 

TEMP SAVE 

00 b / 14 

1670 

bbOO 

FPtl 



Lao 

Sb3,CkLPAS 

PRINT ASCII Ck/LF MESSAGt 

00 b /lb 

16 70 

0300 

0058 



LhJ 

$b4 , 1YPt 

INSTEAD OF INVISIBLE CR-LF 

oOb / 1 6 

1671- 

d 002 




LOb 

bB3*=bB2 

KtSlOkt b3 

00b/I7 

1680 

A873 




LOk 

bk2 , «-$b3 

POP Sb3,N0w = 1 WORD 6LY0ND CR/LF 

OOb / lo 

ibbl 

8801 




OLC 

= $K 1 

ADJUST RANGE aNO ALLOW 60 bYTtb/LINt 

OOb /19 

1 6 b 2 

9970 

0028 


ObPbT 

CMK 

V 

X 

tl 

b 

c 

SEE IF RANGE IS MOtR THAN 1 LINE 

OU572U 

1 6 b 4 

0301 

0003 



bG 

ObPb 


U 0 5 7 2 1 

1 6 8 6 

OP 8 1 

0043 



b 

ObPAil 


005/22 

168 b 

8755 



ObPb 

CL 

= $kb 


OOb 7 2 3 

1689 

8900 

tb37 



CMZ 

MSGFLG 


OOb 724 

iobb 

0981 

0000 



BNt 

ObPLP 


0 o b 7 2 b 

1680 

8900 

t F 7 F 



CHZ 

LAP uG 


005/26 

16bE 

0980 


T 


bNL 

>♦5 A 


OOb 72 7 

1690 

8900 

P 5bO 



Chz 

bYNPLO 


005726 

1692 

0907 




bE 

>ObPLP 


OOb 7 29 

1693 

8900 

0126 



cimz 

bLN 1 P 0 


OOb 730 

1695 

0981 

0003 



BNL 

bSPoP 


Oub /31 

1697 

O30G 

0037 


$A 

LNj 

bB4 , NLWLIN 


0 0 b 7 3 4 

1699 

0843 

0028 


ObPLP 

LOk 

bK4,bb3.40 


OOb 7 33 

169b 

OF 4 3 

0028 



STk 

SK5,SB3•40 


Oob 734 

1690 

8900 

tb23 


ObPLPl 

ChZ 

MbOPLG 


005735 

169F 

0980 


T 


bNL 

> + ib 


00b 7 3b 

1 6 AO 

8900 

u 119 



ChZ 

btNT PG 


OC5737 

1 6 A2 

0901 

0004 



bL 

b 


005/36 

1 6 A4 

8900 

P5A8 



CHZ 

bYNPLO 


003739 

1 6 A 6 

09P9 


I 


BNt 

> + bb 


00b 740 

1 6 A 7 

8900 

EF65 


b 

CMe 

LAPLO 


005741 

1 6 A9 

0980 


1 


dht. 

> + $A 

CANNED MtSG HaS CK/LF 

00b 742 

IoAm 

8900 

P5A2 



ChZ 

bYNPLO 


00b 743 

IbAC 

09 P D 


I 


BNl 

>•♦■ SA 


00b 744 

1 6 AO 

0300 

0021 


Sb 

LNJ 

bB4,NEWLIN 

PRUViOt CR LF FOR A 5 SYNC 

005/45 

ibAh 

0P01 

PPFP 



NUP 

b 


0 0 b 7 4 6 

1 6 o 1 

0300 

0024 


SA 

LNJ 

bB4*IYPE 

SYNC HAS CR IF 

00b 747 

16d3 

1 LOb 




ADV 

bki,-40 


0 0 5 7 4 6 

1 604 

OP 43 

0028 



bTk 

bK4,bb3 *40 


0 0 b 7 4 9 

1 60 b 

bb03 

0028 



LAb 

bb3,bb3 #40 


00b750 

16 D 8 

9970 

0026 



Chk 

bkl ,=40 

CHECK RANGE LuFT 

00b 7b 1 





* PUT 

ztku 

IN lbl wOKO OP \EXT 

LINE IF RANGE LEFT lb LESS THAN 40 

00 b 754 

1 60A 

0301 

P POE 



be 

ObPLP 


005753 

i 6 bL 

8900 

tb04 



Chz 

IMbGP LG 


005754 

lbbL 

0981 

000 b 



BNt 

ubPAlT 


005755 

loco 

8900 

0QF9 



ChZ 

bLN1P 0 


005756 

1602 

0900 


I 


bL 

> + $A 


005 75 7 

loC3 

8900 

P 589 



ChZ 

bYNPLO 


00375b 

1 bCb 

0981 

0004 



BNt 

ObPAi1 


Oob 759 

1607 

8900 

P 58 b 


SA 

ChZ 

bYNPLO 


005 760 

1609 

0980 


T 


DNt 

> + $A 


005761 

160A 

0300 

0004 


ObPXlT 

LNJ 

bb4,NEWL 1 N 


005764 

1600 

0300 

0009 


SA 

LNJ 

bb4, 1 YPfc 


005763 

I 60 t 

8381 




JhP 

SB 1 


003764 





# 




005765 





# 




00b 766 





* POSITION i 

COhbOLt AT NEW LINE 


00576/ 





* 




00576b 





NEWLIN 

CALL 

ZVbl* CKLP 



1 bOH 

FbOO 

0003 







lbDl 

0380 

0000 

X 






1603 

op 80 








1 b04 

1660 







005769 

1 605 

8384 




JhP 

$B4 


00b 770 





* 




00b 771 





# 




00b 772 

1606 

bp oo 

156 A 


TYPE 

bAVE 

<bAv3,=Z»PPFF» 

SAVE EVERYTHING 


1 oOb 

PPFP 







OUb 773 

1609 

bF 00 

0006 



bib 

bb3,1YPEA 

PUT ADDRESS IN PROPER PLACE 

005774 






CALL 

2 V$I ,T YPEA 

TYPt THE MtSSAOE 


160 b 

Pboo 

0003 







1600 

0380 

0000 

X 






loOF 

OP 80 








16 L 0 

16 tO 







005775 


16E0 



TYPtA 

EGO 

$-$AP 


OUb7 76 

1601 

8 P 80 

156A 



KblK 

<bAV 3 , = Z•F FFP• 

RESTOKt EVERYTHING 


I 6 t3 

PPFP 







005777 

l6t4 

8384 




JhP 

bb4 

RETURN TU CALLER 

00b 77b 





* 




00b 7 79 





* OlbPLAY 1 

MEbbAOt ON CONbOLt (WITH PRLFIXEO Ck aNO LF) 

005780 





* 




00b 781 

1 6E5 

8P00 

1 56A 


I YPtC 

bAVE 

<bAv3,=Z»FFFF* 

SAVE EVERYTHING 


16E7 

PFFF 







005782 

160b 

bP 00 

0006 



bTb 

bb3,TYPC 

PUT THt ADOREuS IN 



TITLE TCSC1«•REV B* TtkMINuL TEST 


PAGE 70 


Oob 783 






CALL 

2V$f.ZVSTC,TYPEA TYPt THE MESSmGE 


16LA 

FBCO 

0003 






lbtc 

O3b0 

0000 

X 





lbLL 

OF BO 







16EF 

16 EO 






0 0 b 7 8 4 


16EF 



typc 

EuU 

S-SAF 

00b78b 

16 Fo 

bFbO 

1 b6 A 



RSTk 

<SAv3 9=2 • FFFF * RtSTOKt tVEkY THING 


lbf-2 

FFFF 






0 U b 7 8 6 

1 6 F 3 

8384 




JHP 

Sb4 RETURN TO CALlEK 

00b 787 





* 



Oub /8b 





* DISPLAY MLSSAGl. ON CONSOLE WITH " " 

00b789 





* 



006790 

X6p4 

bFOO 

1 b6A 


TYPED 

SAVE 

<SAv3*=2« FFFF* 


16F6 

FFFF 






00b79 1 

1 6F 7 

bF CO 

0006 



STB 

Sb3 « 1 YPU 

00b792 






CALL 

ZVST.2V$QC,TYPEA 


16F 9 

FBCO 

0003 






16F0 

0380 

0000 

X 





16F 0 

OF 80 







16FE 

16 tO 






006793 


16FL 



TYPG 

tou 

s-$>af 

00b 794 

1 bF F 

8 F 80 

166 A 



RSTk 

<SAV3 9=Z 1 F FFF * 


1701 

FFFF 






00 b 79 b 

1702 

8384 




JMP 

Sb4 

006796 





* 



00b797 

1 703 

8 F 00 

166 A 


TP YU 

SAVE 

<SAv3* = Z*FFFF • 


1 706 

FFFF 






006798 

A /Ob 

bF CO 

0006 



STB 

$B3,TYO 

0.0b 799 






CALL 

ZVSJ.ZVSO 9 TPYJ 


1 /Oo 

FBCO 

0003 






170A 

03b0 

0000 

X 





170C 

OF bO 







1 /OO 

1703 






OobbOo 


1700 



T Yu 

EuU 

S-$aF 

OObbOl 

170L 

bP60 

1 b6A 



RSTk 

<SAV3*=2»FFFF» 


1710 

FFFF 






00bb02 

1711 

8384 




JHP 

Sb4 

00bb03 





* 



00bo04 





* 



OObbOb 





* 



QOboOb 





*KGUTINt TO 

PRINT 1 HWORD IN HEa; 

0 0 b o 0 7 





*T0 USE; 


OObbOb 





# 

LNj Sb4•HtXPk1 

00bo09 





* 

DC 

<ARGUHENT 

OObb 10 





* 



OObbll 





^OUTPUT; 

(SPACE) (SPACE) XXXX WITH LEADINvj 0*S SUPPRESSED 

006812 

1712 




HtxPkT 

kESV 

0 

oobb13 

1712 

LCF 9 




Lub 

Sb6,+Sb4 GET ARGUMENT PTR 

OObbll 

1713 

tFCO 

0006 



ST b 

$B 61 1 HARG SET ARG FOR HlX PRINT 

OObb 1 b 

1716 

FBCO 

0003 



CALL 

ZVSfH,OUT PRINT (SPACE)(SPACE)XXXX 


1 71 / 

0380 

0000 

X 





1719 

OF 80 







17 lA 

1 7bb 






Oobb 16 


1 7 1A 



T HARG 

tub 

S-SAF 

0 0 b 817 

1 7 1 D 

8384 




JHP 

Sb4 

Oobb 1 b 





* 



OObb 19 





# 



00bb2u 





* 



00bb2 1 





* 



00bb2-c 





*KGUTINt TO 

CONVERT 1 WORD TO HtX-ASCU Al ANOTH L R LOCATION 

00bb23 





*T0 ust; 


00bb24 





* 

LNj s>b4 «HEXASC 

00bb2 b 





* 

DC 

<SOURCE 

00bb2b 





* 

DC 

<TARGET (3-WJRD AREA) 

0 0 b b 2 7 





* 



00bb2b 





^output; target akea in ascii; (space)(Space)xxxa 

00bb29 





* 



00bb30 

1 71C 

t CF 4 



HEXASC 

LUb 

sb6*+SB4 get source ptk 

OObb 3i 

1 710 

tF CO 

0009 



Sfo 

SB6,SOURCE AND St 1 UP CAcL 

OObbbL 

1 7 IF 

tCF 4 




Lub 

Sb6,+$b4 GET TAKGtT PTk 

00bb33 

1 720 

t-F CO 

000 / 



ST b 

SB6,target and set UP CAlL 

00bb34 






CALL 

■ ZVShA*SOURCE 9 TARGET 


1 722 

FBCO 

0003 






17 24 

0380 

0000 

X 





1 72o 

OF 80 





- 


1 727 

1727 







172b 

1728 






OObb3b 


172 7 



SOUKCE 

tou 

S-2*SAF 

OObb 36 


1728 



TARGET 

too 

$-$AF 

0 0 b 6 3 7 

1729 

8384 




JHP 

Sb4 

00bb3b 





* 



00bb39 





CLRECD 

CALL 

2V$F *RtCP*XZtRG*D332 RECtlVE BUFFER = 332 0*b 


172m 

FBCO 

0003 






1 72L 

0380 

0000 

X 





1 721 

OF 80 







1 72 F 

170b 







l 730 

1922 







1 731 

1921 






00bb40 

1 73.; 

6384 




JHP 

Sb4 

00 b 64i 





* 



00bo42 





* 



00bb43 





* 

tCHO 

the command line input 

0Gbo4M 





# 



00Db4b 

1 733 

bbbO 

1660 


ECHOA 

LAd 

SB3,<CRLF 

00b b4b 

173b 

C3C0 

FF AO 



LNJ 

$B4 * TYPE 

00 b64 7 

1 737 

OPbb 




b 

>EChO 

00bb4b 

17 3b 

BbbO 

1 7 6 1 . 


ECHOX 

LAb 

SB3 * <EXEUT t 

00bo49 

1 73m 

C3C0 

FF AA 



LNJ 

Sb4,TYPEC 

00bb50 

17 3L 

9840 

F 710 


ECHO 

LDR 

SRI * TEST 

OObbbi 

17 3t 

9P40 

003b 



STk 

SR 1 * ECHOMS 

OObbbt 

1 7 mO 

C3C0 

FFDb 



LNJ 

$B4,HEXASC PUT CHAN NUMbLR ON COLSOLt 

00bbb3 

1 742 

0141 




DC 

<BCnAN 

006854 

1 743 

1776 




DC 

<ECriOMS + 2 

Oubobb 

1744 

9840 

F70b 



LDk 

SRIiMESG 

OObbbo 

1 746 

1048 




SOk 

SRI *6 

OObob 7 

1/4 7 

9A70 

2000 



ADD 

SRI*=X'2000» 

OObbbb 

1749 

9P40 

0030 



STk 

Ski *ECHOMS+6 

OObb b9 






CmLL 

ZVShD «PASSES * ECHOMSMb 


174b 

F BCo 

0003 






1 74o 

0380 

0000 

X 





1 7 4 F 

OF 80 







17 60 

OLbi 








PAGE 


TilLt TCbCl,'KtV b* ItKMlUbL ItoT 


71 



17 31 

1 7 7l 







00366U 

1732 

9640 

868 8 



LDk 

4K1 »tKCD 


005o61 

17 34 

9H40 

002b 



blk 

4kl,LCHUMS+12 


UU3o62 

1 736 

69C0 

8 £34 



CMZ 

NOblOP 


00566J 

1 7 3 b 

0911 




bt 

> ECHO 1 


003664 

1 7 39 

9 6 70 

2C46 



LDR 

4R1,=A»,F » 


005o63 

17 3b 

9840 

0018 



SIR 

4K1,LCHUMS+7 


00366O 

173 0 

9870 

48 32 



LOR 

4K 1 , = A * OR * 


003667 

1731- 

9840 

001C 



STR 

4R1,tCHUMS+8 


003666 

176 1 

9870 

4336 



LDk 

4Ri,=A»tV» 


U 0 3 6 6 9 

1 763 

9840 

0019 



blK 

4K1 ,tCHuMS+9 


003670 

1 76b 

9870 

4332 



LDR 

bRlf=A«tk» 


00 36 71 

1 76 7 

9 8 aO 

0016 



blK 

&K1,tCHUhb+10 


00 3o U 

1 7 09 

obbO 

1774 


tCHQT 

LAb 

4b3 , < tCHOMb 


003673 

1 7 6 D 

C3C0 

8 8 6 A 



LNJ 

4B4,rYPt 


00 3 6 74 

1 760 

8384 




JFiP 

ib2 


0U5ti73 

1 7 0 L 

4538 

434 3 

5534 

LXtUTt 

TtXT 

'LXLC0T1NG $• 



17 71 

4941 

4720 

2024 





0 u b b 7 6 

1 774 

7878 

3 A20 

3334 

tCHUFiS 

TlXT 

•XX; 343678, 99+ 

, 4 • 


17 7 7 

3336 

3738 

2C20 







3939 

2C20 

2020 







2020 

2020 

2C20 







2020 

2400 






003b77 





* 




0 u 3 o 7 b 





* 

lrkok 

HaNDuING KOUTIMt 


0u3b79 





* 




OubbGu 

17 64 

8AC0 

8 6b4 


tHAND 

1 NC 

LRC) 

bump tRRUR COuNTtK 

Oubobi 

1 7 64 

08 bO 

1764 


tH 

b 

<LH 

GO TO PROPtR KOOIlNE 

00babe 

1/66 

08 01 

8888 



NOP 

4 


OObobb 

1 i 66 

0801 

88 88 



NUP 

4 


0Ubo84 

1 7bA 

0801 

8888 



NOP 

4 


OObbBb 





* 




OUbbbb 





* 

(■ ULLQw 

b IHL NORMAL MJDt 


0 U b b b 7 





# 


s. 


OObbbb 

1 7bC 

b3C0 

01A9 


tH2 

LNJ 

4B3 ,SUtM 

btT UP THt tkROR MESSAGt 

OObbBb 

1 764 

bbbO 

1927 



LAb 

4b3 , <PK 1 b8 

LOAD MtbbAGt ADDRESS 

OUbobO 

1 7 90 

C3C0 

8834 



LNJ 

4b4,1YPtC 

GO TYPt IT 

00bo9 i 

1792 

0860 

0936 



D 

<COUNT 


0Ubb9b 

1 794 

• C3C0 

8 88 7 


tHA 

LNJ 

4b4,HtXASC 

btT UP NUMbtk OF Bytes btNT 

UUbbbb 

17 9 6 

0 tbA 



LHAM1 

DC 

<OPMKGb 


0ubb94 

179 7 

1 7bt 




DC 

<OUiCRT 


Oubbbb 

1 79b 

bb80 

17bb 



LAb 

4b3,<0UT 

TYPE MtSbAGE.* 

OObobb 

1 7 9 A 

C3C0 

F84A 



LNJ 

4B4,1YPtC 

SENT XX (HtX) CHAR.: 

Oubob 7 

179C 

bbbo 

0L74 


fc. H1 

LAb 

4B3 ,cCANNLD 

LOAD MtSSAGL mDDRLSS 

OObbbb 

l 790 

9800 

0 t6b 


EHAM2 

LDK 

$R1,<0PMRNG 


OObobb 

17 AO 

9840 

0019 



b Tk 

4R 1 ,btNTFG 


GObbOO 

1 7A2 

9 3C0 

8 ECF 



Ln J 

4B1,C0NPKr 

TYPt II 

OUb90l 

1 7A4 

8740 

0015 



CL 

btNi8 G 


0 0 b b 0 4 

1 7Ao 

C3C0 

8 F7 5 



LNJ 

4b4 , HLXAbC 

st t up NOMbtR of bytes Rteti ved 

UObbO 3 

17 Ab 

OLbt 




DC 

<KC v KNB 


UU3904 

17A9 

1 7Cb 




DC 

<INCNT 


OObbOb 

1 7aA 

bbbO 

17C6 



LAb 

4 b 3, < 1N 

TYPE MtSSAGt: 

00390b 

1 7 AC 

O3C0 

F 8 3 8 



LNJ 

404,f YPLC 

KtCD XX (HtX) CHAR.; 

UObbO 7 

17 At 

bb60 

1 7U5 



LAB 

ibi,<KtCD 

TYPt MtSSAGt AS RECEIVED 

OObbOb 

17bU 

9840 

8 6Bt 



LDk 

4K1,RCVKNG 

GtT RANGE IN wORDS 

OObbOb 

1 7 b2 

93C0 

FtCl 



LNJ 

ib 1 ,'CONPK 1 


OU bv 1 0 

1 7b4 

0801 

8 8 8 F 



NOP 

4 


OObb11 

1 7bO 

0801 

8 8 FF 



NOP 

4 


OObbU 

1 7ub 

0881 

8 1 70 



b 

COUNT 

GO TALLY THt HASS 

Oubb 1 3 

1 7 DA 

0000 



StNT FG 

OC 

0 


OObb 14 

17 bo 

7363 

6174 

3A20 

UUJ 

TLXT 

• StNl: » 


003*13 

17 DL 

0000 



UUTCNT 

ktSV 

3,0 

NUM OF BYTES oENT 

UObblb 

1 7 C 1 

2028 

6865 

7629 


TLXT 

• (81tX) CHAR,4* 



1 7 C4 

2063 

6861 

7221 







2400 







OObb 17 

17 Co 

7263 

6 364 

3 A20 

IN 

tlxt 

*KLCD; » 


Oubb 1 b 

1 7 Co 

0000 



INCNT 

KLbV 

3,0 

NUM OF BYTES RECEIVED 

OObb lb 

17 CL 

2026 

6865 

7829 


I LXT 

• (htX) CHAR.** 



17 01 

2063 

6861 

7 2 21 







2400 







003920 

17 03 

0000 



KtCD 

KLbV 

332,0 

KtCD BUFFER 

005921 

1921 

014C 



D332 

KLbV 

1,332 


003922 

194 2 

0000 



X2LK0 

KLbV 

1,0 


OObb23 





* 




UU3924 





# 

SUPPRlSS tKKORb 


003923 





* 




003926 

1923 

0861 

8012 


tHb 

b 

CUUNl 


003927 





# 




00392b 





* 

bOPPKtbS,SUM ON CONbJLt 


003929 





* 




003930 

1923 

U6bl 

F010 


the 

b 

COUNT 


003931 





* 




00393*: 





# 




003933 





* 

btT OP 

tKKuk MtbbAGt FOR 

OUTPUT TO CUNSOLl UR pRINTtk 

003934 





* 




003933 

1927 

787b 

3 A20 

2020 

PRTbF 

rtxT 

•xx; 

, CHAN3436784* 


192a 

2020 

2020 

2020 







2020 

2020 

2C20 







6368 

6 161 

3334 







3336 

3738 

2400 





003936 





* 




003937 

1936 

C3C0 

8 Dt 5 


SUtM 

LNJ 

4B4,HtXAbC 

PUT CHA^i NOMBlR IN ERROR MtbSAGt 

003b3b 

1936 

0 t4E 




DC 

<BCHAN 


003939 

1939 

1932 




DC 

<PK1BF♦11 


003940 






CALL 

2 V$MW ,MtoRNGA , V )WFB 

,MwTtJ 


193A 

Bbco 

0003 







1 93C 

D380 

0000 

X 






19 31 

0880 








19 3F 

1943 








1940 

1944 








1941 

1943 







003941 

1942 

8383 




JHP 

4B3 


00394*: 





* 




003943 

1943 

1929 



MWTb 

DC 

<PRT BF + 2 


00394*+ 

1944 

0L27 



MWFb 

DC 

<tM2 


003943 

1943 

0006 



MWRNG 

KtSV 

1,6 


003946 


1943 



MWRNGA 

tuu 

MWRNG 


003947 





ZVPTCH 

CALL 

ZV4PCH 



1946 

8 b F 0 

0001 







1946 

0380 

0000 

X 





00394b 





* 




003949 

194A 

0100 




tND 

TCbCl,START 


0000 LkR count 










TITLE T0501*•REV b* TERMINbL TEoT 


PAGE 


72 


TITLE T CbOl » * KbV b* TERMINAL Ttbl 


692 

*A 

689b 

783d 

790B 

902b 



1216b 

1239b 

1h3 76 

1525b 



1792b 

2002 b 

2028 B 

22276 



5359b 

5372B 

5553b 

5582b 

766 

bA 





799 

3A 





904 

3>A 





920 

hA 





951 

4> A 





956 

j>A 





9o4 

hA 





1062 

$A 





116 7 

*A 





1221 

6 A 





1241 

iA 





1439 

*A 





1526 

aA 





1533 

fcA 





161 7 

a>A 





1719 

i>A 





1726 

3>A 





1744 

bA 





1795 

bA 





2004 

3A 





2042 

$A 





2 24 5 

*A 





2363 

*A 





2647 

3>A 





2603 

b A 





2916 

*A 





2935 

i>A 





5361 

$A 





5375 

*A 





5361 

$A 





5 556 

bA 





5 5 7 7 

i>A 





5731 

bA 





57*t6 

*A 





5759 

3>A 





5 7o2 

*A 






$Af 

611 

959 

960 

1316 



5599 

5600 

57 75 

5784 

695 

S>B 

692b 

i 189B 

1265B 

1746b 



2944b 

5739b 

2949b 

2961b 

5389b 

1191 






1263 

bb 





1749 






2026 

3B 





2041 

$>B 





2656 






2943 

*6 





2946 

*B 





2964 

$b 





5398 

*6 





5451 

3B 





5496 

ii>B 





5561 

3B 





5 744 

3>b 






916B 948B 955b 962B 10586 
15316 1606b 1717b 1722b 1724b 
2381b 2631b 2636b 2804b 2915b 
5726B 5 7 41B 5743B 5756B 5760b 


1739 

2520 

2648 

2850 

5597 

5793 

5800 

5816 

5835 

5636 

2021 b 

2023b 

2036b 

2038b 

2650b 

5395B 

5404b 

5448b 

54936 

5556b 


613 

6140 

629 

6300 

654 

657 

672 

6740 

67 7 

663b 

725b 

7 78 

8160 

6360 

843 

8450 

8630 

8650 

869 C 

8710 

6 730 

890 

9030 

9200 

928b 

944 

946 

9666 

981 

9820 

986 

98 70 

994 

9950 

1001 

10020 

10100 

1014 

10150 

1019 

10200 

1030 

10310 

1041 

10420 

lOfeOL 

1062 

10630 

1067 

10680 

107 6 

10770 

1082 

10830 

10920 

1108 

1109C 

1136 

11370 

11380 

1139C 

11400 

11410 

11510 

1152 

11530 

1156 

11570 

11580 

11590 

11600 

11610 

116 7 C 

1 1680 

1216 b 

1226b 

1228 

12290 

1243b 

1246b 

1303b 

1322 

13230 

1393 

13940 

1400b 

1552 

1553C 

1554 

15550 

15600 

1598 

1399C 

1600 

16010 

1631 

16320 

1633 

16340 

16520 

1658 

16590 

1660 

16610 

1671 

16720 

1675b 

1707B 

1744 

1 749 

1 750 

1798 

1 7990 

1802 

18030 

1817b 

1874b 

18950 

1896 

18970 

19 10b 

1980b 

20510 

4131 

2132 

2474b 

2517 

2521 

2522b 

2531 

25320 

253 7 

2 540 

2543 

2562 

2569 

25700 

25 73 

25740 

* 702 

2 704 

2 775b 

2991 

2994 

5425 

5426 

5430 

5456b 

5470 

5472 

5474 

5476 

5583b 


5900b 

634b 

5909b 

692 b 

736B 

737 

7hOB 

74 1 

744b 

745 

748b 

752b 

753 

7 650 

76 70 

944 

9450 

951 

1122 

1133 

1221 b 

1335b 

2U93B 

2122 

2 12 7 

2138 

2281b 

2289b 

2295b 

2307b 

2315b 

2380B 

2382b 

2363b 

23930 

24080 

2463B 

24730 

2828 b 

2 835b 

2841 

5499 

55000 

5 501 

5502C 

5506 

55070 

55110 

5512 

55130 

5514 

55150 

8 54 7 

8552 

5575 

5577 

5668b 

631 

5713 

681 

5 716 

69 7 

5874b 

80** 

609 

949b 

1113 

1197 

11980 

12060 

1213 

12140 

1236b 

1261 

12 79 

12956 

1350b 

1358b 

1419b 
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